Select Code to Download

perl -pi -00 -e 's{(<TITLE.*?>).*?(<\/TITLE>)}[$1newtitle$2]gis' *.htm
+l

while(<>) { ..... }

perl -pi -e 's{^#!\/.*?$}[#!\/usr\/bin\/perl];' *.pl