【perl脚本】域操作符 .. 在正则匹配和文本处理中的小技巧

最近才学会这种用法，使用场景如下，例如有如下文件待处理，我需要从中找出所有的函数定义的代码，函数全部定义在def - pass区间内：

此时通过perl语言进行处理，通过域操作符 .. 配合正则匹配就可以完美解决这一问题：

执行结果：

可以发现域操作符以非贪婪的方式精确的找出了def - 最近的pass之间的代码，完美符合我的需求。