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

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