Select Code to Download

$htmlData =~ s/<title>(.+?|[^.]*)<\/title>/print "Title found is: $1\n
+"/ei;

$htmlData =~ s/<title>(.+?|[^.]*)<\/title>/
               print "Title found is: ".clean($1)."\n"/ei;
...
   $title =~ s![;'"\/]+!!g;
   return $title;
}