Directly from the POD of Text::CSV_XS:

      require Text::CSV_XS;

      my $csv = Text::CSV_XS->new;

      my $column = '';
      my $sample_input_string = '"I said, ""Hi!""",Yes,"",2.34,,"1.09"
+';
      if ($csv->parse($sample_input_string)) {
        my @field = $csv->fields;
        my $count = 0;
        for $column (@field) {
          print ++$count, " => ", $column, "\n";
        }
        print "\n";
      } else {
        my $err = $csv->error_input;
        print "parse() failed on argument: ", $err, "\n";
      }

      my @sample_input_fields = ('You said, "Hello!"',
                                 5.67,
                                 'Surely',
                                 '',
                                 '3.14159');
      if ($csv->combine(@sample_input_fields)) {
        my $string = $csv->string;
        print $string, "\n";
      } else {
        my $err = $csv->error_input;
        print "combine() failed on argument: ", $err, "\n";
      }
[download]

Cheers,
Ovid

New address of my CGI Course.
Silence is Evil (feel free to copy and distribute widely - note copyright text)

The Perl module Text::CSV can be really helpful here, since it's designed to handle things like quotes for you.

If not P, what? Q maybe?
"Sidney Morgenbesser"