Yet another JAPH with yet another chr and ord

[vrk]

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@<