Select Code to Download

use Text::CSV;

my $csv = Text::CSV->new( { sep_char => ' '} );
...
abc def data 123
ghi jkl "data with spaces" 456
"oh dear" "more data with spaces"