use HTML::TreeBuilder::XPath;
my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse_content( $content );
my @headers = $tree->findnodes( q{ //table[@class='HeaderFrame' ]  } )
    ->shift ## get first one
    ->findvalues( q{ .//td[@class='HeaderTitle'] } );

print "@headers\n";