Shell Programming and Scripting

#! /usr/bin/perl
use warnings;
use strict;

my $d = $ARGV[0];

sub parse_csv {
  my $text = shift;
  my @columns = ();
  push(@columns ,$+) while $text =~ m{
    "([^\"\\]*(?:\\.[^\"\\]*)*)",?
      | ([^,]+),?
      | ,
    }gx;
  push(@columns ,undef) if substr($text, -1,1) eq ',';
  return @columns;
}

my @cols = ();
my $line = undef;

open I, "< file.txt";
while ($line = <I>) {
    chomp($line);
    @cols = parse_csv($line);
    print join($d, @cols), "\n";
}
close I;

[user@host ~]$ cat file.txt
a,b,c,"d,e,f",g,h
a,b,c,"d,e,f",g,h
a,b,c,"d,e,f",g,h
[user@host ~]$ ./test.pl '|'
a|b|c|d,e,f|g|h
a|b|c|d,e,f|g|h
a|b|c|d,e,f|g|h
[user@host ~]$