Select Code to Download

use strict;
use Data::Dumper;
...
121212,"Simpson, Bart",Springfield,"Roger"
121212,"2\" tape, \"white",springfield,"Roger"
121212,"Simpson \", Bart",Springfield,"Roger"

$VAR1 = [
          '1',
...
          'Springfield',
          'Roger'
        ];

use strict;
use Data::Dumper;
...
121212,"2"" tape, ""white",springfield,"Roger"
121212,"Simpson "", Bart",Springfield,"Roger"
121212,"2""",springfield,"Roger"

$VAR1 = [
          '1',
...
          'springfield',
          'Roger'
        ];