>>909
こりゃどうだ。

$dat="\"あ,い,う \" ,え,お";
while($dat=~ /"(.+?)"/){
$ushiro = $';
($mae = $1) =~ s/,/，/g;
$dat = $mae . $ushiro;
}
print $dat, "\n";