for my $datei (@dateien) {
 my ($name,$suffix) = $datei =~ /([^\/\\]*?)\.([^\.]+)$/;
 if(defined $suffix and $suffix !~ /(JPL|a00)$/i){
   push(@ohneendung,$name);
 }
}