http://www.perlmonks.org?node_id=767749

gibsonca has asked for the wisdom of the Perl Monks concerning the following question:

How do I detect one or more uppercase characters in a string? Been trying things like this:

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