Help for this page
<TITLE> Blahblah </title>
if ($line =~ /<TITLE(\w+)<\/TITLE>/i) ---- if ($line =~ m#<TITLE>(\w+)</TITLE>#i)
use File::Find; ... } find( \&wanted, "." );