perl -MApp::CCSV -ne "$csv->sep_char('|'); csay @f; $csv->sep_char(',')" <comma.csv >pipe.CSV