suchen, ausgeben und ausführen

[$xNeTworKx]

Hallo,
ist deine Liste von Dateien nun die Dateien, die durchsucht werden sollen? Wenn ja, würde ich es so machen:

opendir(DIR,'.') or die "Kann Verzeichnis nicht oeffnen: $!\n";
while (defined($_ = readdir DIR))   {
        if ($_ =~ /^\w+?.\w{3,4}$/)   {
                open(FILE,$_) or die "Kann File $_ nicht oeffnen: $!\n";
                local $/;
                my $file = <FILE>;
                if ($file =~ /HIER KOMMT DAS, WONACH DU SUCHEN WILLST/s)    {
                 #HIER KOMMT DAS, WAS DU MIT DIESEM FILE MACHEN WILLST, ZB VERSCHIEBEN
                }
                close FILE;
        }
}
closedir DIR;