my $line = '<META NAME="TITLE" CONTENT="Page Title Here">';
 
$line =~ /<meta name="title" content="([^"]+)">/i;
 
print $1;
__END__
Page Title Here