HTML::TableExtract sample

gistfile1.pl

#!/usr/bin/perl
use strict;
use HTML::TableExtract;
use Data::Dumper;

my $html = "<table>" .
    "<tr><td>" .
    "<table><tr><td>1</td><td>a</td></tr><tr>". 
    "<td>2</td><td>B</td></tr></table>" .
    "</td></tr>" .
    "</table>";

my $te = HTML::TableExtract->new(depth=> 1, count=>0);
$te->parse($html);
my @rows = $te->rows;
foreach (@rows){
    print $_->[0], ",", $_->[1], "\n";
}