It does for me.

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