#!/usr/bin/env perl
use strict;
use warnings;
use Text::CSV;

my $FileIn = 'aaa.csv';
my $FileOut = 'Converted.txt';

my $csv = Text::CSV::->new() or die Text::CSV::->error_diag();

#open my $FH, "<", "aaa.csv";
open my $FH, "<", $FileIn;
open (OUTFILE, "+>$FileOut");


while (my $row = $csv->getline($FH)) 
  {
    print OUTFILE join('|' => @$row), "\n";
  };