Select Code to Download

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

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