#!perl -p
s/\S *./$&=~y, ,*,r/ge