Well, with a million or two you'd almost have to do something like this instead...

opendir my $dir, "." or die $!;
while( my $name = readdir $dir ) {
    next unless $name =~ m/(?:XYZ|\.txt|\w)/;

    print "doing something on $name\n";

    # more code here

}
closedir $dir;
[download]