use strict;
use Text::CSV_XS;
use Data::Dumper;

my $csv = Text::CSV_XS->new({sep_char=>' '});

$csv->parse('one "two three" four five "six seven eight" nine');

my @columns = $csv->fields();

print Dumper(@columns);