$r =~ s/[A-Z]/U/g; $r =~ s/[a-z]/L/g;