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";
}