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

##</code><code>##

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

##</code><code>##

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