use strict;
use warnings;
use HTML::TableExtract;

my $html = do {local $/; <DATA>};

my $te = HTML::TableExtract->new;
$te->parse($html);

__DATA__
<table></table>