$s =~ s/(^|,)\K(?![^,])/0/g;