$s =~ s/,\B/,0/g;

##</code><code>##

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