perl 匹配多个返回数组

perl 匹配多个返回数组my @Strings = ($NewString=~/(9\d{4})/g);

 

 

my $NewString = "12312391293429342342139076856123";
my @Strings = ($NewString=~/(9\d{4})/g);
my @Result = sort @Strings;
print "@Result \n";
print "$Result[$#Result] \n";

 

 

 结果为：

90768 91293 93423
93423