while (<>) {
@array = split(/,/, $line);
}

##</code><code>##

121212, "Simpson, Bart", springfield

##</code><code>##

121212, Simpson Bart, springfield

##</code><code>##

open (SYST, "$upload_dir/$filename");
while (defined ($line = <SYST>)) {
        next if ($line =~ /^\s+/) ;

        if ($line =~ /"(.*)"/) {
                print "found line= $line\n";
                $line =~ s!
                                "(.*)"
                        !
                                (s/,/sprintf("_", $&))
                        !ee;
                print "now line= $line\n";
        }
}
close (SYST);

##</code><code>##

line = 121212, "Simpson, Bart", Springfield<br>

if ($line = /"(.*)"/) {
$1 = "Simpson, Bart"; Now contains

# now run replace on Simpson, Bart
$1 =~ s/,/_/g;

$1 = "Simpson_ Bart"; # Now contains

now put everyting back together.

121212, Simpson_ Bart, Sprigfield
}