#!/usr/bin/perl
use strict;
use warnings;

my $praefix = 'P007201031';

for my $datei (glob("$prefix.*")) {
  if(  my ($suffix) = $datei =~ /^\Q$prefix\E\.(.+)$/ ) {
    print "Suffix: $suffix\n";
  } # if
}