Help for this page

Select Code to Download

Select or download this

perl -ple"s[sub\s+(?=\w)][sub XXX_]g" yourscript.pl >junk.pl