If you really want to upcase only A's, C's, E's etc. You could use the tr/// construct.

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