Select Code to Download

#!/usr/bin/env perl

...

__DATA__
aaa,bbb,"ccc, ddd",fff

$ pm_csv_to_psv.pl
aaa|bbb|ccc, ddd|fff

    print join('|' => map { /,/ ? '"'.$_.'"' : $_ } @$row), "\n";

$ pm_csv_to_psv.pl
aaa|bbb|"ccc, ddd"|fff