use File::Copy;

my $working = "C:/Spektrenlager/PDFOutput/";
my $target = "C:/Spektrenlager/PDFOutput/sortiert/";
my $unknown = "lostandfound/";

chdir $working;
my @Dateien = glob("*.pdf");
foreach (@Dateien){
	print $_;
	if (-f $_) {
	$_ =~ /(\w{3})\w*/;
	if ((-e $target.$1) && (-d $target.$1) ){
	print "Verschiebe $_ nach $_,$target.$1\n"; 
	move ($_,$target.$1."/".$_);		
	}
	else {
		move ($_, $target.$unknown.$_)
	}
}
}