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