$\=getc;print<>=~s/ (.)/$1 /gr