在Perl中的字符串中匹配并保存一个或多个实例

在Perl中，可以使用正则表达式来匹配和保存一个或多个实例。以下是一个简单的示例：

my $string = "hello world";
my $pattern = "hello";

while ($string =~ /($pattern)/g) {
    print "$1\n";
}

在这个例子中，我们定义了一个字符串变量$string和一个模式变量$pattern。然后，我们使用=~运算符和/$pattern/模式来匹配并保存匹配到的实例。最后，我们使用print语句输出匹配到的实例。

请注意，在这个例子中，我们使用了贪婪匹配，这意味着/$pattern/将匹配字符串中尽可能多的实例。如果你想只匹配一个实例，可以使用非贪婪匹配，例如：/($pattern)?/。

如果你需要匹配多个模式，可以使用|运算符。例如：

my $string = "hello world";
my $pattern1 = "hello";
my $pattern2 = "world";

while ($string =~ /($pattern1)|($pattern2)/g) {
    print "$1\n";
}

在这个例子中，我们使用|运算符来匹配多个模式。在这个情况下，/$pattern1/和/$pattern2/将匹配字符串中任意一个模式。