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