use Text::CSV;
    my $csv = Text::CSV->new();
    while(<DATA>) {
        $csv->parse($_) or die "Parse error";
        my @cols = $csv->fields();
        print join('/', @cols), "\n";
    }
    __DATA__
    foo,bar,baz
   foo,"bar baz","foo ""the bar"" baz"