#!/usr/bin/env perl
use Modern::Perl;
use Text::CSV;

my $ic = Text::CSV->new()                              
        or die Text::CSV->error_diag();
my $oc = Text::CSV->new({sep_char => '|', eol => $/ }) 
        or die Text::CSV->error_diag();


open my $if, '<',  'infile' or die $!;
open my $of, '>', 'outfile' or die $!;

while( my $r = $ic->getline($if)){
	$oc->print($of, $r);
}
close $if;
close $of;