my $te = HTML::TableExtract->new;

$te->parse($scoretable);

foreach my $ts ($te->table_states) {
        print "Table (", join(",",$ts->coords), "):\n";
        foreach my $row ($ts->rows) {
                print join(',', @$row),"\n";
        }
}