perl -i -pe '(1==$. or eof) && s/,,+/,/' file_name