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;