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