c:\@Work\Perl\monks>perl -wMstrict -le
"my $result = '<title>The Rain in Spain</tItLe>';
 my ($newresult) = $result =~ m{ <title> (.*?) </title> }xmsi;
 print qq{'$newresult'};
"
'The Rain in Spain'