Perlを使用してファイルの最初の3行と最後の2行を印刷する方法は？ [閉鎖]

コマンドラインを介してtext.xmlファイルに1つ以上のパターンを描画します。

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

見つかったパターンを使用して新しいファイルを作成する必要があります。新しいファイルには、パターンの前の Text.xml ファイルの最初の 3 行と、パターンの後の Text.xml ファイルの最後の 2 行が含まれます。