perl -pe '$_="$.: $_"' your_input > your_output

##</code><code>##

use strict;
use warnings;

while (<DATA>) {
  my (@fields)= split /, /;
  foreach (@fields) {
    if (s/^"((?:[^"\\]|\\.)*)"$/$1/) {
      #correct
      tr/\\//d; # No more \
      print "$_\n";
    }
  }
}
__END__
"Perlmonks", "http://www.perlmonks.org", "excellent ;)"
"csv", "csv\"xxx", "trall\ala"