Select Code to Download

X:\database> perl -le "@foo = `dir /b ABC*`; print scalar @foo"
540

X:\database> perl -le "@foo = glob('ABC*'); print scalar @foo"
540

use strict;
...
    $wild = qr{\A$wild\z};
    return $wild;
}

Benchmark: timing 10 iterations of fdglob, plglob, qxglob, rdglob...
              Rate qxglob fdglob rdglob plglob
...
fdglob      3.44/s 26995%     --   -35%   -40%
rdglob      5.33/s 41871%    55%     --    -7%
plglob      5.71/s 44893%    66%     7%     --