@fields = split /,/$your_line_here;

##</code><code>##

$foo =~ /,\"(.+)\"/;
$bar = $1;
...do some stuff....
$foo =~ s/,\".+\"/,\"$bar\"/;