Zeilen aus txt auslesen/Verzeichnis prüfen/txt schreiben

[Thomas]

Hilft mir schon ein Stück weiter aber:
Ich muss ja wenn ich die erste Zeile ausgelesen hab(c:\winnt\system.ini) die datei such aber wie bekomm ich die erste Zeil?! bzw wie kann ich den Pfad trennen in Pfad und Name (c:\winnt und system.ini) denn wenn ich danach such muss ich ja den Pfad öffnen und dann nach dem Namen suchen lassen und kommt erst:

open (DATEINEU, ">ergebnis.txt");

foreach (@datei)
{
        chomp ($_);
        if (-e $_)
        {
                print DATEINEU "Datei $_ gefunden.\n";
        }
        else
        {
                print DATEINEU "Datei $_ nicht gefunden.\n";
        }
}
close (DATEINEU);

ODER?!

Hier das Programm:

open (DATEI, "<datei.txt");
@datei = <DATEI>;
close (DATEI);
open (DATEINEU, ">ergebnis.txt");
foreach (@datei)
{
        chomp ($_);
        if (-e $_)
        {
                print DATEINEU "Datei $_ gefunden.\n";
        }
        else
        {
                print DATEINEU "Datei $_ nicht gefunden.\n";
        }
}
close (DATEINEU);