my $string = join "\n",
             grep !/suchwort/,
             split /\n/,
             $string;