split m indigo, reverse for tsujdnrehtonadnlrepdnrekcah; print pop _, +pack uc for map a1, times
(Btw I'm a bit affraid of the message you get when you run it with warnings:
Unquoted string "tsujdnrehtonadnlrepdnrekcah" may clash with future reserved wordwhat if someone convinces p5p to add a tsujdnrehtonadnlrepdnrekcah core function to perl 5.10, just to break this japh.)
Update 2006 Jun 27: a related but simpler japh is this:
btw, the digit 1 is not needed in the original japh but I won't remove it now.s no unpack uc uxanexg and print for lc reverse rekcahuolrepuorehtonau +otsuj
Update 2012-10-09: as mentioned in Bitrotten obfuscations, the first obfu no longer works as is since perl 5.12, so as a fix, prepend @_= like this:
@_= split m indigo, reverse for tsujdnrehtonadnlrepdnrekcah; print pop + _, pack uc for map a1, times
Even after this fix, you get a default warning thoguh.