my @names = $text =~ /\b[^\d\s]*\d[^\d\s]*\b/g;