#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;

my $praefix = 'P007201031';

my @dateien = glob("P007201031.*");
my @ohneendung;
for my $datei (@dateien) {
   my $name = basename($datei,$suffix);
   print "$name\n";
   if($suffix !~ /(jpl|a00)$/i){
     push(@ohneendung,$name);
   }
}