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