perl:匹配多行文本

在Perl中，可以使用正则表达式和特殊变量来匹配多行文本。下面是一个示例代码，可以匹配一个文本块中包含特定字符串的行：

while ($text =~ /(.*string.*\n){2,}/g) {
    print $&;
}

其中，`$text`是包含多行文本的字符串变量，`/(.*string.*\n){2,}/g`是匹配多行文本的正则表达式，其中`.*`表示匹配任意字符，`string`表示要匹配的字符串，`\n`表示匹配换行符，`{2,}`表示至少匹配两次。`$&`是特殊变量，表示当前匹配的字符串。

上述代码中，使用了`while`循环和`/g`修饰符，可以匹配多个包含特定字符串的文本块。每次匹配到一个文本块，就打印出来。