Torwächter: PerlSearch - Indexsuchmaschiene aber wie ?

Beitrag lesen

der Code ist ca . so (hab ihn gerade nicht zur Hand)

open Datei
@Xtt = read
Close

foreach $zeile(@Xtt)
(...keya,...,keyj) = (split "|")
if (eingabe eq "keya")
{print "treffer"}
.
.
.
elsif (eingabe eq "keyz")
{print "treffer"}

Nun möchte ich aber auch haben, das "text enthalten" Keys angezeigt werden. Ich denke damit:

if(eingabe =~ /"keya"/i)
{print "enthalten"}
.
.
.

leider sucht aber das foreach so:

treffer
enthalten
treffer2
.
.
.

jetzt dachte ich, kann mir vielleicht jemand sagen, was ich anstelle dieser blöden foreachschleife benutzen kann.

Viele Grüße
Torwächter