I would use Sifmole's solution
but here's a fairly silly way to do it.

for(97..122){
    $init = chr; $rep = uc($init);
    eval '$string =~'."s/$init/$rep/g" if $_ % 2
}
[download]