my $tablenr=0;

##</code><code>##

if ($tag eq 'table'){
      push @save, [$tablenr,$row,$column];
      $row = $column = 0;
      $tablenr=$count;
      ++$count;
      $in_table++;
    }

##</code><code>##

if ($tag eq 'table') {
      ($tablenr, $row, $column) = @{ pop @save };
      --$in_table;
}

##</code><code>##

$table[$tablenr][$row][$column] .= $text if ($in_table) && ($text !~ m/^\s+$/);

##</code><code>##

my @save=([]); #initialize with an empty list as first element.