Perl Script to extract pattern and redirect to another file

Select or download this

LIST NAME:     CT08LIST
 ----------
...
     GROUP      RLSPMM    08.299 17:35
     GROUP      ABEND50   11.035 20:41
     GROUP      CT08MQ    12.287 11:37

Select or download this


 LIST NAME:     CT09LIST
...

GROUP NAME: XCT08L1
 ----------

Select or download this


 MAPSETS:            AGCEM1    AGHEM1    AGMMM1    AGONM1    AGPEM1   
+ AGPUM1    AGREM1    AGRUM1    AGSEM1
...

 GROUP NAME: XCT09L1

Select Code to Download