#!perl -lp s/ (.)/$1 /g;s/.//;$_.=$&