use HTML::TableExtract;
my $te = HTML::TableExtract->new;
$te->parse(join('', <>));
foreach my $row ($te->first_table_found->rows) {
  print join(':', @$row), "\n";
}
[download]

In reality, given the entire HTML document, you'd probably need to specify a depth/count in the constructor for H::TE.

Cheers,
Matt