if (opendir(DIR,"test") ) { while($datei = readdir(DIR)) { if ( open(INPUT,"+<", "test/$datei") ) { # Datei um Lesen und Schreiben öffnen print "$datei\n"; undef $/; $_ = ; # erste Zeile lesen $_ =~ s// /; # Ersetzen seek(INPUT, 0, 0) or die "Fehler: $!"; # An Anfang der Datei gehen print INPUT $_ or die "Fehler: $!"; # Inhalt zurück schreiben close (INPUT) or die "Fehler: $!"; # Datei schließen } else { die "Fehler: $!"; # Problem beim Öffnen der Datei } } closedir(DIR) or die $!; # Problem beim Schließen des Verzeichnisses }