$s=~s/,(?=,)/,0/g;