Select Code to Download

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

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