my $te = new HTML::TableExtract();
$te->parse($string);
foreach my $ts ($te->table_states) {
    foreach my $row ($ts->rows) {
       foreach my $col (@$row){
	  print $col . "\n" ;}}}