Select Code to Download

$_ =~ s/some expression meaning a quoted comma/some placeholder/g;
@line = split(/\,/, $_);
...
foreach my $line (@line){
  $line =~ s/some placeholder/,/g;
}

@line = split(/some expression that only matches commas not within quo
+tes/, $_);