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