use strict;
use warnings;

my $directory = '/path/to/dir';

opendir my $dirhandle, $directory or die $!;
while( my $entry = readdir $dirhandle ) {
    next if $entry !~ /\w{3}\d{8}\.txt\z/;

    print "Dateiname: $entry\n";

    # hier dann irgendwas mit der Datei machen.
}
closedir $dirhandle;