@digits = map { $_ =~ m/[0-9]/g ? $_ : () } $list;