use warnings;
#use strict;
use HTML::TableExtract;
use LWP::Simple;
my @a = 0;
my $item = 0;
$/="\n\n";
open (FILE, "/path/to/file/file.htm") || print "Error";
@a = ;
close (FILE);
foreach (@a)
{
foreach $item (split "(//)gi", $_,)
{
my $chunk = "$item";
#print "$chunk","\n","***********";
my $te = HTML::TableExtract->new();
$te->parse($chunk)
->first_table_found;;
foreach my $ts ($te->tables) {
my @rows = $te->rows;
foreach my $row ($te->rows)
{print join(',', @$row), "\n";}
}
}}