Perl을 사용하여 파일의 처음 세 줄과 마지막 두 줄을 인쇄하는 방법은 무엇입니까? [폐쇄]

명령줄을 통해 text.xml 파일에 있는 하나 이상의 패턴을 그립니다.

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

발견된 패턴을 사용하여 새 파일을 만들어야 합니다. 새 파일에는 패턴 앞의 Text.xml 파일의 처음 세 줄과 패턴 뒤의 Text.xml 파일의 마지막 두 줄이 포함됩니다.