#!perl -l $_=pop;for$x(pop=~/./g){s/(\w*)$x(\w*)/$1 $2 $x/}print/\w/g
#!perl -l $_=pop;for$x(split'',pop){s/(\w*)$x(\w*)/$1 $2 $x/}s/ //g;print