Inspired by the recent discussions about xor, I decided to finally try my hand at making a JAPH and here it is:

$a='&0&106&63&108&56&89&23&88&12&68&01&83&35&102&52&120&16&81&18&89&28
+&78&';map{if($y>1){$a=~/&([^&]+)&(?=$_)/;$c.=chr^chr($1);if($z==2){$a
+=~s/&[^&]+&/&/;}else{$z++;}}else{$y++}}split('&',$a);$c=$c^' 'x lengt
+h($c)."\n";$c=~s/([\x61-\x7A])([\x41-\x5A])/$1\x20$2/g;print $c;
[download]