Select Code to Download

#!/usr/bin/perl -w

...
$line =~ s/"(.*?),(.*?)"/$1_$2/;

print "After: $line\n";

Before: 121212, "Simpson, Bart", Springfield<br>
After: 121212, Simpson_ Bart, Springfield<br>