use HTML::TreeBuilder::XPath;
use strict;
use warnings;
my $data = do {local $/; };
my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse($data);
print $tree->findvalue('//title');
__DATA__
This is a very good site for regular Expressions.
Very helpful.
Thanks.
Hello world