Select Code to Download

$_->()for map{my$y=$_;sub{print$y}}(split qr,,,q,use re;$y=~tr/kn
ol/Japh/c;$,)[map-0141+ord,q=uabldv;prlxfmdwfeoidxvzofe==~m~.~g];

$_->()                # Execute closure
  for map{
...
      q=uabldv;prlxfmdwfeoidxvzofe= =~ m~.~g
                      # Splits into characters
  ];

-- 
I knock my pate and fancy wit will come
Knock as I please, there's no one at home
      a pontiff paraphrased