$test_char =~ /^[A-Z]$/o;