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

##</code><code>##

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