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'
[download]

___
-DA