perl -le '$_=q(ab cdefg);s/(^\w+)/$1,/;print;'