foreach $file (@copy_files) {
        $part = $file;
        $part =~ s/^(.*\/).*$/\1/g;                     # Das ist Magie.... ;-)
        
        print "$file \n";                                       # gibt den Pfad + Dateinamen an
        print "$part \n";                                       # gibt nur den Pfad an, UND BIS HIERHER GEHT DAS SKRIPT!

        
        chdir $FindBin::Bin;                                    # Wechselt in das Verzeichnis in dem sich das ausgeführte Skript befindet (da liegt auch die Datei)
        print STDERR "Jetzt wurde in $FindBin::Bin gewechselt \n";
        
        $temp < io("$file");                                    # Soll die Datei öffnen
        print STDERR "Jetzt wurde in aus $file gelesen \n";
        
        while ($temp =~s/false/0/) { print STDERR "Jetzt wurde false ersetzt \n"; } # ersetzt alle "false" durch "0"
        while ($temp =~s/true/1/) {print STDERR "Jetzt wurde true ersetzt \n";} # ersetzt alle "true" durch "1"

        while ($file =~s/Report/Report_mod/) {          
                # Erweiterung des Dateinamen um "_mod". Testdateiname: Report-20131025-0010.skv
                print STDERR "Jetzt wurde Report durch Report_mod ersetzt \n";
        }
        $temp >> io("$file");
        print STDERR "Jetzt wurde in die Datei $file geschrieben \n";
}