use strict;
use warnings;
use HTML::TreeBuilder;
#Parse html content using html-treebuilder:
my $root = HTML::TreeBuilder->new();
$root->parse($html);
$root->eof();
my @tables = $root->look_down(_tag => 'table');
while (@tables) {
my $node = shift @tables;
if (ref $node) {
unshift @tables, $node->content_list;
}
else {
print $node,"\n";
}
}
$root = $root->delete;