perl -i~ -pe 's/,+/,/g' your_filename_goes_here