$ perl -le '$_=q(ab cdefg);s/(?<=\w)\b/,/;print;'