#!perl -pl
$l=~s/./ /g;$l=$_=$l.$_