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

##</code><code>##

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