use HTML::TreeBuilder;
my $tree = HTML::TreeBuilder->new;
{   local $/;
    $tree->parse_content (<DATA>);
    }
foreach my $tr ($tree->look_down (_tag => "tr")) {
    my @td = map { $_->as_text } $tr->look_down (_tag => "td");
    @td == 2 or next;
    print "[0] $td[0], [1] $td[1]\n";
    }