test

# Shorthand...top level rows() method assumes the first table found in # the document if no arguments are supplied. foreach $row ($te->rows) { print join(',', @$row), "\n"; } ##

##

use strict;
use warnings;

use HTML::TableExtract;
use Data::Dumper;

my $html_string = qq{


test



Name Place Country Telephone
Justin California 12345
Catherine Texas USA 2419422


};

my $te = HTML::TableExtract->new(
    headers => ['Name', 'Place', 'Country', 'Telephone'],
);
$te->parse($html_string);

print Dumper($te->rows);