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