perl如何匹配多行文本并输出？

问题遇到的现象和发生背景

匹配并输出该匹配行并生产新的文件

问题相关代码，请勿粘贴截图

用foreach循环的时候怎么匹配多行呢

运行结果及报错内容

我的解答思路和尝试过的方法

我想要达到的结果

每个相同模块打印输出并生成一个新的文件。

你好，我是有问必答小助手，非常抱歉，本次您提出的有问必答问题，技术专家团超时未为您做出解答


本次提问扣除的有问必答次数，将会以问答VIP体验卡（1次有问必答机会、商城购买实体图书享受95折优惠）的形式为您补发到账户。


因为有问必答VIP体验卡有效期仅有1天，您在需要使用的时候【私信】联系我，我会为您补发。