use strict;
use warnings;
use diagnostics;
use HTML::TableExtract;
my $table_1 = '
<table><tr><td>foo</td><td>bar</td></tr>
<tr><td>baz</td><td>quux</td></tr></table>';
my $table_2 = '
<table><tr><td>bof</td><td>xyzzy</td></tr>
<tr><td>bat</td><td>gazonk</td></tr></table>';
my $te = HTML::TableExtract->new();
$te->parse($table_1);
foreach my $ts ($te->tables) {
   print "Table (", join(',', $ts->coords), "):\n";
   foreach my $row ($ts->rows) {
      print join(',', @$row), "\n";
   }
 }
## what goes here if I want to dump table_1 ?
$te->parse($table_2);
foreach my $ts ($te->tables) {
   print "Table (", join(',', $ts->coords), "):\n";
   foreach my $row ($ts->rows) {
      print join(',', @$row), "\n";
   }
 }