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);