>perl -e"print qq{\"a\nb\",c\nd,e\n}" | perl -MText::CSV -le"print join '|', @{ Text::CSV->new({binary=>1})->getline(*STDIN) }"
a
b|c