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

##</code><code>##

push @digits, grep { /[0-9]/ } @list;