if ($line =~ /<TITLE(\w+)<\/TITLE>/i)
----
if ($line =~ m#<TITLE>(\w+)</TITLE>#i)