請教perl 匹配target 後截取換行中資料問題

icer213

本文資料如下
想要截取Test ID 中並輸出不同行array[ ]
例如輸出excel file       3101             3121
                      mean 16.48668nA  23.15744nA
請問peral如何實現 ，
感謝。

Item No: 1

        Test ID: 3101

        Title: GMA1~7 VDA Leak Test



        Total Test Count: 2303                 Minimum Data    :-2.000000uA   

        Pass Count      : 2287             Maximum Data    : 2.000000uA   

        Fail Count      : 7                  Minimum Scale   :-2.000000uA   

        Error Count     : 0                 Maximum Scale   : 2.000000uA   

        Over Flow Count : 9                  Lower Limit     :-800.0000nA   

        Effec Data Count: 2289                Upper Limit     : 800.0000nA   

        Mean            : 16.48668nA            Minimum Value   :-1.070000uA   

        Variance        : 1.442316fA$       Maximum Value   : 42.00000nA   

        Sigma           : 37.97784nA     1.96-Sigma      : 74.43656nA   

        2-Sigma         : 75.95568nA      3-Sigma         : 113.9335nA   

        Cp              : 7.021639       Cpk             : 6.876934      

Item No: 3

        Test ID: 3121

        Title: GMA8~14 VDA*0.6 Leak Test



        Total Test Count: 2303                 Minimum Data    :-2.000000uA   

        Pass Count      : 2293             Maximum Data    : 2.000000uA   

        Fail Count      : 2                  Minimum Scale   :-2.000000uA   

        Error Count     : 0                 Maximum Scale   : 2.000000uA   

        Over Flow Count : 8                  Lower Limit     :-800.0000nA   

        Effec Data Count: 2293                Upper Limit     : 800.0000nA   

        Mean            : 23.15744nA            Minimum Value   : 10.00000nA   

        Variance        : 165.2875E-18A$    Maximum Value   : 430.0000nA   

        Sigma           : 12.85642nA     1.96-Sigma      : 25.19858nA   

        2-Sigma         : 25.71283nA     3-Sigma         : 38.56925nA   

        Cp              : 20.74191       Cpk             : 20.14150      

legs

perl -0nE'print"excel file ";$,=" ";say/Test ID: \K\d+/g;say/Mean\s+: \K\S+/g' file