$_ = "SomEThingWithMIXEDRegiSter\n";

y/A-Z/U/, y/a-z/L/;

print;