while (my $token = $p->get_token()) {
if( $f == 1 and $token->[0] eq "S" and $token->[1] eq 'td' ) {
    my $t = $p->get_text();
    next if $t eq ''; # das img-Element wurde mittels 
              # default-einstellung in ein '' verwandelt
              # vgl. Doku
    print "$t\n";
    $f = 3; # flag zum aufhören
}
} # /while;