use strict;
use LWP::Simple;
use HTML::TableExtract;

my $html = get($url);

my $te = HTML::TableExtract->new( depth=>0, count=>0, keep_html => 1 );
$te->parse($html);
    
my $ts;
my $row;
foreach $ts ($te->table_states) {
     foreach $row ($ts->rows) {
          print join(',', @$row), "\n";
     }
}
1;