in reply to Deparse JAPH

On *nix perl you can shorten that to a one-liner for extra-special sig powers:
perl -MO=Deparse -e'u j t S n a t o e h r , e p l r a h k c r e'

___
-DA