Help for this page

Select Code to Download

Select or download this

C:\tmp\files>perl -nE" @o=() if /PATTERN1/; push @o,$_; say qq(<@o>) i
+f /PATTERN3/ " input2
<PATTERN1 SOME INFO
...
>

C:\tmp\files>