##habs nicht getestet, hoffe es tut was es soll
my @woerter= ("Wort1", "Wort2"); 
while (<$fh>) {
    unless (m/^$/) {
      foreach my $wort (@woerter) {
        s/$wort//;
      }
        print;
    }
}