#!perl -ap s//$"x$=/e;s! !$F[($x^$')=~y///]=$'!ge;$_=$x=pop@F