or download this
$ cat test.pl
#!/pro/bin/perl
...
datar1c1,datar1c2,datar1c3,datar1c4,datar1c5,datar1c6
datar2c1,"data,r2c2",datar2c3,datar2c4,datar2c5,datar2c6
datar3c1,datar3c2,"data, r3c3",datar3c4,datar3c5,datar3c6
or download this
$ perl test.pl
Head was (column1 column2 column3 column4 column5 column6)
...
datar1c2,datar1c1,datar1c4,datar1c3
"data,r2c2",datar2c1,datar2c4,datar2c3
datar3c2,datar3c1,datar3c4,"data, r3c3"