HLINE NUMBER : ABCDE HPROJECT ID : HGROUP : HAREA NAME : ********* HOPERATOR : ********* HCONTRACTOR : ENERTEC HSURVEY AUDITOR : ACCU-AUDIT HSURVEY DATE : ********* HUTM ZONE : 11 HSURVEY QUALITY : ASCM,1 HCOMMENTS : ********* H : H : H : HLINE LENGTH (Km): 2.65 HGRID VERSION : ATS 2.6 HDATUM : NAD 27 HAUDIT DATE : ********* H<....IDENTIFICATION....> <...GEOGRAPHICS...><.....UTMS.....> H<.....LINE.....><..SP..>I<..LAT..><..LONG..><.EAST.><.NORT.> ##

##

HLINE NUMBER     : ABCDE
 PROJECT ID      : 
 GROUP           : 
 AREA NAME       : *********
 OPERATOR        : *********
 CONTRACTOR      : ENERTEC
 SURVEY AUDITOR  : ACCU-AUDIT
 SURVEY DATE     : *********
 UTM ZONE        : 11
 SURVEY QUALITY  : ASCM,1
 COMMENTS        : *********
                 : 
                 : 
                 : 
 LINE LENGTH (Km): 2.65
 GRID VERSION    : ATS 2.6
 DATUM           : NAD 27
 AUDIT DATE      : *********
 <....IDENTIFICATION....> <...GEOGRAPHICS...><.....UTMS.....>
 <.....LINE.....><..SP..>I<..LAT..><..LONG..><.EAST.><.NORT.>

##

##

while () {
     if (/^H/) {     ## Assumes all header lines start with 'H'
          push(@hdr, $_);
          next;      ## skip to next (possibly header) line
     }
     ##
     ## Capture each line of data in file
     ##
}

##

##

H CLIENT      : **********                                                      
H PROSPECT    : *******                                                         
H CONTRACTOR  : *****                       LINE NAME      : *******            
H SURVEY CO.  : ************                UNIQUE ID      : *******            
H SURVEY DATE : DEC 1977                    ORIG.LINE NAME : *******            
H SURVEYOR    : _N/A                        ENERGY SOURCE  : DYNAMITE           
H ------------------------------------------------------------------------------
H PRODUCED BY : DIVESTCO GEOMATICS                FIRST SP : 101                
H  WEBSITE    : **********************             LAST SP : 222                
H  EMAIL      : **********************         LINE LENGTH : 8.003   KM         
H DATE        : ************                PROJECT NUMBER :                    
H JOB NUMBER  : ************                    AFE NUMBER : ************       
H FILE NAME   : ********                  CLIENT REFERENCE : *******            
H MAPSHEET  : *************         DATUM      : NAD 1983 - Canada              
H ZONE      : Z11N : 117W           SOURCE INT.: ***      F STN INT.: ***      F
H GRID REF. : ATS 4.1               HTKO :                                      
H UNITS     : Decimeters            VTKO :                                      
H ELLIPSOID : GRS 1980                 SURVEY QUALITY CODE : ***********        
H DATA QUALITY : Transcription 2D                                               
H< LAT    >< LONG   >< EAST ><   ><    ><>