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