如何使用perl打印文件的前三行和后两行？

Question

通过命令行我绘制了 text.xml 文件中找到的一种或几种模式：

perl -ln0e 'while(/<PMResult.*?<\/PMResult>/gs) {
  $x=$&;print $x if $x=~/BCCEL-[1-3]/}' text.xml

我需要使用找到的模式创建一个新文件；新文件将在模式之前包含 Text.xml 文件的前三行，在模式之后包含 Text.xml 文件的最后两行。