This globbing stuff although it appears simple to use, can get messy, complex and is non-portable between platforms.

I would open a directory and use readdir() with a Perl grep{} filter to get what you want. That will always work. It is code that is: easy to understand and portable between platforms and Perl versions. Example code..

#!/usr/bin/perl -w
use strict;

my $dir = ".";
opendir (DIR, $dir) || die "cannot open $dir\n";
my @filepaths = map{"$dir/$_"} grep{-f "$dir/$_"} readdir(DIR);
print join("\n",@filepaths),"\n";
[download]