s/\(.*\),\(.*\)\n\(.*\)\n\(.*\)\n/"\1,\2",\3,\4\r/g

##</code><code>##

perl -e 'my $data =`cat test.pl`; $data=~s/(.*),(.*)\n(.*)\n(.*)\n/"\1,\2",\3,\4\n/g;print $data;'>newfile.csv

##</code><code>##

perl -e 'my $data =`type test.pl`; $data=~s/(.*),(.*)\n(.*)\n(.*)\n/"\1,\2",\3,\4\n/g;print $data;'>newfile.csv