JAPH

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

Comment on JAPH Download Code

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!	[reply]