#!perl -l
$_=pop;for$z(pop=~/./g){s|$z(\w*)|~\1~$z|}s|~||g^print