perl -pi.bak -e "s/([^,]+),([^,\n]+)/$2,$1/" data