#! /usr/bin/perl -w use strict;$_=qq/\n/x25;%_=split/[&,:\;\$=\+\/]/, '61;_m$6b=o;63+n=48&l:6c$j/72+eiq$65=dhp;73$\=6'. 'e;`$74,]b=6f+a$75;[+68=c;20:^fk;50/g+4a;Z';while (($;,$/)=each%_){foreach$,(split//,$/){substr($_, ord($,)-90,1)=chr(hex($;))}}print;
Have fun,
In reply to My second JAPH by rdw
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |