Suchbegriffe bei + teilen und dann suchen

[Torwächter]

Hallo,

so sinnlos war meine Codefetzen auch nicht (war mein Suchalgorithmus), habe eben nur die Funktionsweise niedergeschrieben und nicht das Script, da ich den Code nicht zur Hand habe.
Also hier nocheinmal genauer :
--------------------------------------
...

$Suchfeld = $FORM{'Suchbegriff'};

open DATEI,"Seek.log";
my @Alles = <DATEI>;
close DATEI;

foreach $zeile(@Alles)
{
   ($name,$keyA,$keyB,$keyC) = split(/|/,$Satz);
   if ($keyA =~ /$Suchfeld/)
    {print "$name";}
   elsif ($keyB =~ /$Suchfeld/)
    {print "$name";}
   elsif ($keyC =~ /$Suchfeld/)
    {print "$name";}
}

...
-------------------------------------

Mit freundlichen Grüßen
Torwächter