opendir(my $dir, 'your_directory_here') or die("ack: $!");

my @files = grep /[A-Za-z]{2}_\w{2,5}/, readdir $dir;

closedir $dir;