$ perl -Mblib -MText::CSV_XS \
? -E'my $csv = Text::CSV_XS->new ({ quote_empty => 1 });' \
? -E'$csv->combine (1, undef, "", " ", 2);' \
? -E'say $csv->string'
1,,""," ",2