Regex 如何在一个变量中找到所有匹配的模式，并将它们写入每个匹配字符串的输出和换行符？

我有一个字符串变量作为

$variable 

我有这样一种模式：

/<OPTION [^>]*>\D*([^<]+)/g 

---

/]*>\D*（[^您应该使用模块来处理HTML数据。如果您坚持使用错误的方法：

print join("\n", $variable =~ /<OPTION [^>]*>\D*([^<]+)/g), "\n";

print join（“\n”，$variable=~/]*>\D*（[^您应该使用一个模块来处理HTML数据。如果您坚持使用错误的方法：

print join("\n", $variable =~ /<OPTION [^>]*>\D*([^<]+)/g), "\n";

print join（“\n”，$variable=~/]*>\D*（[^我建议使用TreeBuilder来解析HTML。如果使用或使用该函数，您将获得性能

顺便说一下：

my @arr = $variable =~ /<OPTION [^>]*>D*([^<]+)/g;
for(0 .. @arr - 1) {
    print $arr[$_] . "\n";
}
my@arr=$variable=~/]*>D*（[^我建议使用TreeBuilder来解析HTML。如果使用或使用该函数，您将获得性能

顺便说一下：

my @arr = $variable =~ /<OPTION [^>]*>D*([^<]+)/g;
for(0 .. @arr - 1) {
    print $arr[$_] . "\n";
}
my@arr=$variable=~/]*>D*([^