use HTML::TableExtract qw(tree);
my $te = HTML::TableExtract->new();
$te->parse($string_of_html);

my $table = $te->first_table_found;
my $table_tree = $table->tree;
my $table_html = $table_tree->as_HTML;
print $table_html;