#!perl -pa
eval"y/$_/a-z/"for@F;$_ x=pop@F~~@F