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'

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"use Data::Dump qw(dd);
 ;;
 my $result = 'yada <title>The Rain in Spain</tItLe> blah <TITLE>How Now Brown Cow</TitlE> foo';
 my @titles = $result =~ m{ (?i) <title> (.*?) </title> }xmsg;
 dd \@titles;
"
["The Rain in Spain", "How Now Brown Cow"]