Re: perl filenames and square brackets

[etcshadow]

All above is correct. While you're better off, overall, changing the whole algorithm to using some File::Find variant, the simplest most direct solution to the problem, is to just replace the glob with an opendir, readdir combo. So, rather than:

$dir .= '*';
my @list = glob($dir);

you could do:

opendir(DIR, $dir) or die $!;
my @list = readdir(DIR) or die $!;
closedir(DIR) or die $!;

So that you're actually looking at the file contents, directly, rather than relying on globbing.