my @names = $text =~ /\w*\d\w*/g;