@numbers = map { /\d/ && s/\D//g } split $wholeLine;
#
# Or insist on leading digit?
#
@numbers = map { /^\d/ && s/\D//g } split $wholeLine;