Como imprimir as três primeiras linhas e as últimas duas linhas de um arquivo usando perl? [fechadas]

Question

Por meio da linha de comando, desenho um ou vários dos padrões encontrados no arquivo text.xml:

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

Eu preciso criar um novo arquivo com este padrão encontrado; o novo arquivo terá as três primeiras linhas do arquivo Text.xml antes do padrão e terá as duas últimas linhas do arquivo Text.xml após o padrão.