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