~Version Information
VERS .         2.00                      : CWLS Log ASCII Standard - Version 2.00
WRAP .         NO                        : One line per depth step
#
~Well Information
#MNEM.UNIT     DATA                      : DESCRIPTION      
#----.----     ---------                 : -----------------
STRT .FT       13400.000                 : Start
STOP .FT       15870.000                 : Stop
STEP .FT           0.500                 : Step increment
NULL .         -999.250                  : Null value
COMP .                                   : Company
WELL .                                   : Well
FLD  .                                   : Field
#
~Curve Information
#MNEM.UNIT     API CODES                 : CURVE DESCRIPTION
#----.----     ---------                 : -----------------
DEPT .FT       00 001 00 00              : Logged depth
GR   .GAPI     30 310 01 00              : Gamma Ray
DRHO .G/C3     42 356 01 00              : Density Correction
#
~Parameter Information
#MNEM.UNIT     VALUE                     : DESCRIPTION      
#----.----     ---------                 : -----------------
DREF .         K.B.                      : Depth reference
GL   .FEET     1185.00                   : Ground elevation
RUN  .         ON                        : Run number
TDD  .FEET     15850.000                 : TD (driller)
TDL  .FEET     15870.000                 : TD (logger)
#
~Other Information


##</code><code>##

if (/~P/i) {
    print "\nHit a tilde!\n";
    $section = '1'; 
    $section2 = '0';
}