foreach my $tab ($tree->look_down(_tag => "table")) { # alle Tabellen
    next if $tab->as_text; # Inhalt? => weiter
    $tab->delete;  # kein Text => löschen
}
# alle <td width="0%" ...> löschen
$_->delete foreach $tree->look_down(_tag => "td", width => "0%");