1
2
3
4
5
6
7
8

my @woerter = qw(Wort1 Wort2); 
while my $line (<$fh>) {
    next if $line !~ m{\S};
    for my $wort (@woerter) {
        $line =~ s{\b$wort\b}{}g;
    }
    print $line;
}

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"