use strict;
use warnings;
use HTML::TableExtract;
my $te = HTML::TableExtract->new (
keep_headers => ["Customers", "Samples", "Violations", "Availability"]
);
$te->parse ($final_content);
my @pages;
foreach my $ts ($te->tables ()) {
print "Table Number(", join (',', $ts->coords), "):\n";
$rws = 0;
push @pages, [];
foreach $row ($ts->rows) {
my @row_ele = split /,/, join ",", @$row;
push @{$pages[-1]}, \@row_ele;
print scalar @pages, ',', scalar @{$pages[-1]}, "\n";
}
}