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