perl -pie 's/(\w+)/$1,/g' yourFile