使用字符类：

my @matches = ( $string =~ /\b[[:upper:]|[:digit:]]{3,}+\b/g );
say join " - ", @matches;

（您说的是大写字符和数字。您没有指定在哪里

(You stated uppercase characters and numbers. You didn't specify where the number would be. You also didn't say whether or not I need to do something with the number.

编辑您的问题以包括其他要求。

Edit your question to include other requirements).