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'