Select Code to Download

use Text::CSV_XS;
my $csv = Text::CSV_XS->new({'quote_char'  => '',
...
    my @fields = $csv->fields();
    print "$fields[3]\n";
}