Shell Programming and Scripting

awk -F, 'NR==1 { hdr=$0; next } $16 != prev { prev=name=$16; gsub(/[^[:alnum:]_]/,"",name); $0 = hdr "\n" $0 } { print > ("/Directory/File."name".Download.csv") }' /Directory/File.ALL.Download.csv

"Column1-Name", "Column2-Amount",... "Column16-ID"
" A, and B", " 100.00", " 000000001"
" CD", " 100.00", " 000000001"
" EF", " 100.00", " 000000001"

awk -F FS="\",\"" 'NR==1 { hdr=$0; next } $16 != prev { prev=name=$16; gsub(/[^[:alnum:]_]/,"",name); $0 = hdr "\n" $0 } { print > ("/Directory/File."name".Download.csv") }' /Directory/File.ALL.Download.csv

awk     'NR>1   {FS=OFS="\""; $0=$0                                     # recalculate fields based on " delimiter
                 for (i=2; i<=NF; i+=2) gsub (/,/,"\001", $i)           # replace , in " delimited fields with a token
                 FS=OFS=","; $0=$0                                      # recalculate fields based on , delimiter

                 $2 = $1"abcd"                                          # do whatever you need

                 gsub ("\001", ",")                                     # just before printing anything, put back the inner ","
                }
         1
        ' file

#! /usr/bin/perl

use warnings;
use strict;
use Text::CSV;

my ($csv, $fh, $row);
my (@fields);

$csv = Text::CSV->new ({ binary => 1, eol => $/ });

open $fh, "< file";

while ($row = $csv->getline($fh)) {
    @fields = @{ $row };
    print "@fields\n";
}

close $fh;

[user@host ~]$ cat file
a,b,"c,d,e",f,g
p,q,"r,s,t",u,v
[user@host ~]$ ./test.pl
a b c,d,e f g
p q r,s,t u v
[user@host ~]$

awk -F "\",\"" 'NR==1 { hdr=$0; next } $16 != prev { prev=name=$16; gsub(/[^[:alnum:]_]/,"",name); $0 = hdr "\n" $0 } { print > ("/Directory/File."name".Download.csv") }' /Directory/File.ALL.Download.csv