use warnings;
use strict;

use HTML::TableExtract;

my $te = HTML::TableExtract->new();
$te->parse_file('935413.html');


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