Select Code to Download

my $t = '1,2,3,,5,6,,,9,10,,,,14,15,,,,,,,,,,,,,,,';
my $s = join ',' => map { $_ ne '' ? $_ : '0' }
                    split /,/ => $t, 1 + $t =~ y/,//;

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