use warnings;                    
use strict;

my @files = glob('*.tex');            # Liste aller '.tex'-Dateien
                                      # im aktuellen Verzeichnis

FILE:
for my $file (@files) {               # Nimm alle einzeln von der Liste
# FALSCH! vgl. Linuxer
#    if ($file !~ /-neu\.tex$/) {      # Endet sie nicht auf '-neu.tex'?
#        unlink $file;                 # dann weg damit
#        next FILE;                    # und zur nächsten (Sprung zu FILE:)
#    }

    if ($file =~ /(.*)-neu(\.tex)$/) {   # eine neue .tex-Datei?
        my $oldfile = "$1$2";            
        if (-e $oldfile)                 # alte Version vorhanden?
            unlink $oldfile;             # dann löschen
        }
        my $newname = $file;             # Kopie des Dateinamens machen
        $newname =~ s/-neu(\.tex)$/$1/;  # ersetze '-neu.tex' durch '.tex'
        rename($file, $newname);         # benenne Datei um
    }
}                                     # zurück nach FILE: (nächste Datei)