my $csv = qq{foo,,bar,''};