Help for this page
Select Code to Download
Select
or
download this
$s =~ s/,\B/,0/g;
Select
or
download this
$s =~ s/(^|,)\K(?![^,])/0/g;