# Dateien im Stickordner nach dieser Liste umbenennen
	foreach my $i (@liste_dateien) {
		$stickdatei = $i;
		$stickdatei =~ /$stickordner\/(\S+)/;
		$stickdatei = "$stickordner/$1";
		$hd_datei = $i;
		$hd_datei =~ /$hdordner\/(\w+)\/(\S+)/;
		$hd_datei = $2;
		if ($dryrun != 1) {
			move ("$stickdatei", "$stickordner/$hd_datei") || warn "Umbenennen von $stickdatei fehlgeschlagen mit: $!";
		}
		print TESTDATEI "$stickdatei    wird zu\n    $stickordner/$hd_datei\n";
	}