my $table = HTML::TableExtract->new(keep_html=>0, depth => 1, count => 1, br_translate => 0 ); $table->parse($html); my $t = $table->table(1,1); foreach my $col ($t->columns) { print join("\t", @$col), "\n"; }