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