> perl -MData::Dumper -MText::CSV_XS -l \ -e 'my $csv=Text::CSV_XS->new ({ blank_is_undef => 1 });' \ -e '$csv->parse (q{1,,"", });' \ -e 'print Dumper$csv->fields' $VAR1 = '1'; $VAR2 = undef; $VAR3 = ''; $VAR4 = ' ';