perl -MCPAN -e'install Text::CSV'

...

#!perl -wl

use strict;
use Text::CSV;

my $csv = new Text::CSV;

while (<DATA>) {
        next unless $csv->parse($_);
        print join(":", $csv->fields());
}

__DATA__
"1","2",3
"a,b",c,d