my @names = $text =~ /\b[A-Z]*\d[A-Z]*\b/gi;