$result = =~ /(<title>.*<\/title>)/mgi;
my $newresult = $1;
$newresult =~ s/<title>//i;
$newresult =~ s/<\/title>//i;