Zeilen aus Text löschen, die bestimmten String nicht beinhalten

[Sven Rautenberg]

MoiN!

Es ist kein Problem, alle Textzeilen zu löschen, die den String in $relevant enthalten:
  $text=~s/\n[^\n]*$relevant[^\n]*//g;

Dann solltest du mit dem regulären Ausdruck einfach nur suchen, statt ersetzen.

if ($text=~/\n([^\n]*$relevant[^\n]*)/)
{
  $gefunden = $1;
}

- Sven Rautenberg