my $string = "hier steht etwas\nhier auch\nsteht hier nichts?\naber hier";
print $string . "\n\n";
$string =~ s/[^\r\n]*steht[^\r\n]*\r?\n//gs;
print $string;