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"]