perl -pe 'split/,/;$_=join",",@_' smoke.txt