use strict;
use HTML::TableExtract;

#Content contains actual HTML code extracted from webpage
my $content;

# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
#Please assume that content has some data
# ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

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

my @ts = $te->parse($content)->tables;

my @data = $ts[0]->rows;

print Dumper(@data);