This is a very good site for regular Expressions.
Very helpful.
Thanks.
Some other text we don't want to extract.
);
my $twig = XML::Twig->new;
$twig->parse_html($doc);
my($title_elt) = $twig->findnodes("//title");
my $title = $title_elt->trimmed_text;
print "$title\n"
__END__