my @badnames = glob( $dir . '/*{!,@,#,$,%,^,&,\ ,(,),[,|,<,>,;,+,=,`,~}*');