use warnings;
use strict;
use Text::CSV_XS;

my $csv = Text::CSV_XS->new( { binary => 1, auto_diag => 1 } );

while (<DATA>) {
    for ( [split] ) {
        $csv->print( \*STDOUT, $_ );
        print $/;
    }
}

__DATA__
 Mary had a little lamb
 whose fleece was white as snow.