Re^2: Pattern matching

[choroba]

Yes, and pray for \" not appearing in the data.

[perlCrazy]

Thanks for help and input. below code works fine:

my $file = "t.txt";
open(FH,$file) || die "can't open file \n";
while (<FH>) {
    chomp;
    my $line = $_;
    $line =~ s/\"(.*?)\"/replace($1)/ge;
    $line =~ s/\,/~/g;
    $line =~ s/\;/,/g;
    print "$line \n";
}
close FH;
sub replace {
    my ($str) = @_;
    $str =~ s/\,/\;/g;
    return $str;
}

[tmharish]

perlCrazy like choroba has mentioned its easy to miss certain cases - Best to use a module that's been put through its paces on all kinds of different data.