Re: Pattern matching

[choroba]

Seems like a work for Text::CSV. Does this produce the expected output?

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

use Text::CSV;
my $csv = Text::CSV->new;
open my $FH, '<', '1.csv' or die $!;
while (my $row = $csv->getline($FH)) {
    s/,/~/g for @$row;
    $csv->combine(@$row);
    print $csv->string, "\n";
}