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


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

Oooh. Bonus points for the obfuscated use of a hash to break out the alternate letters!

Replies are listed 'Best First'.
Re: Re: Re: uc() every other letter
by echo (Pilgrim) on Sep 29, 2001 at 02:02 UTC
    Obfuscated? You are too kind. You got me thinking though...

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