#!/usr/bin/perl -w

my $line = '121212, "Simpson, Bart", Springfield<br>';

print "Before: $line\n";

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

print "After: $line\n";