my $html = qq{

Activity #	Some ID /Debit ID
588476377	1275591
588484813	1210540

}; my $te = HTML::TableExtract->new( headers => ['Some ID'] , decode => 0); $te->parse($html); eval { $te->rows; }; if ( $@ ) { print "No rows found\n"; } print Dumper($te->rows);