s/(\p{Lu})|\p{Ll}/ defined($1) ? 'U' : 'L' /eg;