my $word = "The quick brown fox";
$word =~ tr/acegikmoqsuwy/ACEGIKMOQSUWY/;