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

##</code><code>##

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

sub clean {
   my $title = shift;
   $title =~ s![;'"\/]+!!g;
   return $title;
}