Select Code to Download

#$r =~ tr/[A-Z][a-z]/UUUUUUUUUUUUUUUUUUUUUUUUUULLLLLLLLLLLLLLLLLLLLLLL
+LLL/;
eval( '$r =~ tr/[A-Z][a-z]/'.('U' x 26).('L' x 26).'/' );

$r =~ tr/A-Za-z/UUUUUUUUUUUUUUUUUUUUUUUUUUL/;