@files = glob $some_pattern;    # Call glob as an operator.

##</code><code>##

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