$r =~ s[([a-zA-Z])][$1 lt '[' ? 'U' : 'L']ge;;

##</code><code>##

$r =~ tr[A-Z][U];
$r =~ tr[a-z][L];