push @digits, map { /[0-9]/ ? $_ : () } @list