my $s = join ',' => map $_ || 0,
                    split /,/ => $t, 1 + $t =~ y/,//;