my @files =
    grep { /[A-Za-z]{2}_\w{2,5}/ }
        glob "??_??";