$csv = Text::CSV->new ({ quote_char => undef });