Select Code to Download

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

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