perl -Mv5.14.0 -i.bak -e^
 "local $/;print <> =~ s/\( ([^()]+) \) , \n\)/($1)\n)/xr"^
  CUSTOMER_NEW.txt