#!/usr/bin/perl -w

#Wechsel in das aktuelle Verzeichnis
#geht mit oder ohne die zeile net
$0 =~ /^(.*)[\/\\].*/ && chdir ($1);
print "$0";

#Schleife die alle dateien mit gewissen Eigenschaften liest
while (my $filename=<ENG*>) 
{
 print "DEBUG ich habe $filename gefunden\n";
 #Ort der Gefundenen Datei präzisieren
 #$filename = ".\\" . $filename;
  
 #Öffnen für Ausgabe: 
 open(IN, '$filename') or 
    die "Datei konnte nicht geoeffnet werden: $!\n";
 #Erste Zeile lesen
 $a1 = <IN>;
 $a2 = <IN>;
 $a3 = <IN>;
 $a4 = <IN>;
 print "DEBUG Zeile4: $a4 \n"; 
 #Retunr am Zeilenende entfernen
 chop($a4);
 #Zeilenanfang entfernen
 $a4 = substr($a4,11,34);
 #Dateiendung anfügen
 $a4 = $a4 . ".step";

 #Unbenennen
 rename($filename,"$a4");
 #Datei wieder schließen
 close(IN); 
}

 open(IN, '$filename')

 open(IN, '<',$filename)