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

my $dir = '.';
my @found = ();
find(sub {if ($File::Find::name =~ /\d_12.*/){push @found, $File::Find::name;}},  $dir);

my $anzahl=@found;
print @found;
print "\n\nAnzahl: $anzahl\n";

sub wanted {
   if ($File::Find::name =~ /.*/) {
      push @found, $File::Find::name;
   }
}