Perl- 字串中連續逗號以空格隔開

各位先進
目前在使用perl的字串處理
但是無法有效分開字符，想請大家解惑
想要把字串中”連續逗號”用空格隔開
如下：
$str1=‘judge(“pat, pat1, pat2”, INIT,,,,,,,,,,,)‘；

$str2=‘judge(“pa3, pat4, pat5”, INIT, ,, ,,,, ,,,,)‘；

$str1 =~ s/\,\,/, ,/g ;
$str2 =~ s/\,\,/, ,/g
結果：
judge(“pat, pat1, pat2 “, INIT, ,, ,, ,, ,, ,,)；
judge(“pa3, pat4, pat5 “, INIT, , , , ,, , , ,, ,)；

但是我想要的格式是：
judge(“pat, pat1, pat2”, INIT, , , , , , , , , , ,)；
judge(“pa3, pat4, pat5 “, INIT, , , , , , , , , , ,)；

請問該怎麼修改呢？
謝謝

--