my @badnames = glob( $dir . '/*{!,@,#,$,%,^,&}*'­);
[download]

Can't that be simplified to:

my @badnames = glob( $dir . '/*[!@#$%^&]*'­ );
[download]

It works for me¹.

¹ Though not tested with punctuation characters as I didn't have any files with punctuation in their names for use in my quick test and the nearest operating system sanely refuses to put insane characters into file names.