$s = join(",", map {$_ ne '' ? $_ : '0'} split /,/,$s,-1);