您可以捕获字符串，然后对其进行计数.可以通过使用 () 将列表上下文应用于捕获来完成:

You can capture the strings, then count them. It can be done by applying a list context to the capture with ():

my $x = "foo";
my $y = "foo foo foo bar";
my $c = () = $y =~ /$x/g;  # $c is now 3

您还可以捕获到数组并计算数组.相同的原理，不同的技术:

You can also capture to an array and count the array. Same principle, different technique:

my @c = $y =~ /$x/g;
my $count = @c;