Perl Probleme

[Miq]

Also ich habe ein Problem was wie folgt aussieht:

ich möchte mit dem Perl Script eine Textdatei öffnen und diese zeilenweise durchsuchen lassen:

auswahl.txt

..
schmidt , hubert
genscher , vladimir
duersie , ich
..<

wenn er dann an einer stelle angekommen ist, also welchen name ich suche dann soll er mir den vornamen und nachnamen jeweils in eigener variable legen.

ich dachte an sowas:

so z.B. (nicht getestet... :-)

$datei ="auswahl.txt"; /-> meine Datei
open (DATEI, $datei); /-> öffne Datei

map ($nach,$vor)=split('\s*,\s*') , grep(/$suchname/,<DATEI>);

close(DATEI);