1 2 3 4 5 6 7 8
#!/usr/bin/perl -p if (/^/ ... !/^/) { ($package) = /(.*).pm,/; $package =~ s|/|::|g; } s/(\x7F)(sub\s+)?(\w+)(\([^)]*\))?/$1${package}::$3/;