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);

##</code><code>##

$VAR1 = 'one';
$VAR2 = 'two three';
$VAR3 = 'four';
$VAR4 = 'five';
$VAR5 = 'six seven eight';
$VAR6 = 'nine';