for i in `find . *.txt`; do perl -pi -e 's/\n/,/' $i; done;