opendir(DIR,$pfadDerDateien);

while(my $datei = readdir(DIR)) 
{
		#hier werden die Dateien umbenannt, da diese mit der Seriennummer anfangen
		#sie müssen aber mit dem Datum anfangen
		foreach my $neuerName ($datei =~ /[0-9]{11,}/g) 
		{ 
			print "$neuerName ";
			rename("$pfadDerDateien/$datei", "$pfadDerDateien/$neuerName.txt");
		}
close(FILE);
}
closedir(DIR);