perl -0777 -pi -e 's/,\s+/,/g; s/\s+\z//' $1