@y=split qq,\x20,,q;Another Hacker Perl Just;; $y[$]-4]=$y[$]/5]^$y[$%];$y[$%]=$y[$%]^$y[3]; $y[3]=$y[$%*5/3]^$y[3];$y[$%]=$y[$%]^$y[3];$y[ 3]=$y[$]*1/5]^$y[3];$y[$]/5]=$y[$]/5]^$y[3]; print join qq:$":, @y;
In reply to My First JAPH by neosamuri
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |