if (  $key =~ /^[a-z]\z/
               || $key =~ /^[A-Z]\z/ && $flux !~ /[a-z]\z/
            ) {