$test_char =~ tr/A-Z// == 1 and $test_char =~ tr/A-Z//c == 0;