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