Suchmaschine in Perl (für Perlprofis)

[TheQuestion]

Hallo Perlgenossen,

ich habe nun eine Suchmaschine in Perl erstellt, aber so kompliziert, dass es schon beinahe schmerzt und Besonderheiten hat sie auch nicht.
So (nicht wirklich der Code, aber die Funktion):

open Datenbank and readIn und wieder close

foreach $Zeile(@Datenbank)
{($keyA,$keyB,$keyC) = split...|
if ($keyA =~ /$Suchbegriff/){
print "keyA";
}
if ($keyB =~ /$Suchbegriff/){
print "keyB";
}
if ($keyC =~ /$Suchbegriff/){
print "keyC";
}

jetzt aber meine Frage: es geht auch bestimmt einfacher, aber wie ?
Es wäre auch noch die Wucht, wenn mir jemand dann noch schreibt, wie ich 2 Suchbegriffe mit + Suchen kann (test+test2)

Ich danke euch ganz herzlich für die Mühe.

Viele Grüße
TheQuestion