Danke topeg!

Das Programm hab ich so übernommen.
Der Block von Zeile 27-33 war für mich der Schlüssel, das hätte ich mit Sicherheit viel umständlicher programmiert. Danke für die Idee!

Zwei Sachen noch:

* Perl4 kennt "or die" noch nicht
* Zeile 18 müsste überflüssig sein, da du mit Zeile 20 ohnehin nur "richtige" Dateien hernimmst?