if ($str =~ m/[A-Z]/) { print "str contains an uc char\n" }