<perl>

$listoftext = 'Das ist eine Zeile;Und hier die 2. Zeile;Hier die Nummer 3;4 ist die letzte Zeile';
@text = split(';', $listoftext);
$listofwords = 'ist zeile';
#######################
# und jetzt gehts los:

@regexp = map { qr/$_/smi } @words;

for (@text)
 {
  $i++;
  $unsuccess = 1;
  foreach my $pat (@regexp) {
    $unsuccess = 0, last if !/$pat/;
  }
  if ($unsuccess)
  {
   # hier kann dann mehr passieren:
   out "<b>Gefunden($i): </b>$_<p>";
  }
 }

out "<hr><p>";
out "<font size=4><b>Texte:</b></font><br>";
for (@text) { out $j++, ": ", $_, "<br>"; }
out "<br><font size=4><b>RegExp:</b></font><br>";
for (@regexp) { out $k++, ": ", $_, "<br>"; }