Select Code to Download

column1,column2,column3,column4,column5,column6
datar1c1,datar1c2,datar1c3,datar1c4,datar1c5,datar1c6
datar2c1,"data,r2c2",datar2c3,datar2c4,datar2c5,datar2c6
datar3c1,datar3c2,"data, r3c3",datar3c4,datar3c5,datar3c6

column2,column1,column4,column3
datar1c2,datar1c1,datar1c4,datar1c3
datar2c2,datar2c1,datar2c4,datar2c3
datar3c2,datar3c1,datar3c4,"data, r3c3"

#!/usr/bin/perl

...

close $data ;
close $out ;