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