try HTML::TokeParser:

here's and example:

require HTML::TokeParser;

my $obj = HTML::TokeParser->new($File);
my $token = $obj->get_tag("title");

my $title_text = $token->get_text("/title");
[download]