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

$/='}"6ft.(&^)+@<B#,/JK2=>?@7$eJp.',$" =eval$/,@/=split//,$/.$@,$/=0;while($/ <26){$_.=$/[ord($/[++$/])-7]}print

Replies are listed 'Best First'.
Re: JAPH
by awwaiid (Friar) on May 25, 2004 at 12:48 UTC
    I'd like to add that this won't run on every version of perl... It seems to run on 5.6.x and 5.8.x but not 5.005_03. There is a very good reason for this which is clear if you deconstruct the code!