use strict; use warnings; use HTML::TableExtract qw/ tree /; my $html = < test page
parse me
EOT my $te = HTML::TableExtract->new; $te->parse($html); my $table = $te->first_table_found; my $tree = $table->tree; print $tree->cell(0,0)->as_text;