A ball of yarn, both literally and figuratively.
$.=($=>>=3) <<3,map{$_=(ord$_ )-$.or$%++;$_ and($% or$<[$_]=chr$=),$%and$=+= $_,$%--}split//,'8;Q8N=EJ8L:' .'8N98>F8I>L8:M8:CGO8;B'. 'K8;N89I8:?89@8;DHP' .'89;89<A89:8'; print@<
--
print "Just Another Perl Adept\n";
In reply to Yet another JAPH with yet another chr and ord by vrk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |