$ perl -e'print "hello" =~ /\p{Lowercase}+/'
1

$ perl -e'print "HELLO" =~ /\p{Uppercase}+/'
1

$ perl -e'print "Hello" =~ /\p{Uppercase}\p{Lowercase}+/'
1