如何使用Perl查找所有与正则表达式匹配的字符串实例？

ChatGPT的回答仅作参考：

在Perl中，可以使用正则表达式匹配操作符`=~`来查找所有与正则表达式匹配的字符串实例。以下是一个示例代码：

```perl
my $string = "This is a sample string with some numbers like 123 and 456.";
my @matches = $string =~ /(\d+)/g;

foreach my $match (@matches) {
    print "$match\n";
}
```

在上面的代码中，我们定义了一个字符串`$string`，然后使用`=~`操作符和正则表达式`/(\d+)/g`来查找所有的数字。`(\d+)`表示匹配一个或多个数字，并使用括号将其捕获为一个分组。`/g`修饰符表示全局匹配，即查找所有匹配的字符串。

`$string =~ /(\d+)/g`返回一个匹配列表，我们可以使用`foreach`循环遍历该列表，并打印每个匹配的字符串。

运行上述代码，将输出：

```
123
456
```

这是字符串中所有与正则表达式匹配的数字。