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