I don't think this is possible with Text::CSV or Text::CSV_PP. The documentation of Text::CSV hints at maybe using ->is_quoted or the metadata information, but at least the implementation in Text::CSV_PP does not so any conditional quoting.