http://www.perlmonks.org?node_id=115520


in reply to Re: Re: uc() every other letter
in thread uc() every other letter

Obfuscated? You are too kind. You got me thinking though...

@upcase = map { chr(ord() ^ ((ord() & 1) << 5)) } (a..z);