$r =~ tr[A-Z][U];
$r =~ tr[a-z][L];