1 while $s =~ s/,,/,0,/;