$_ = uc for @array[grep { not $_ % 2 } 0..$#array]; [download]
In reply to Re: uc() every other letter by runrig in thread uc() every other letter by Anonymous Monk