Select Code to Download

$hash{ $1 } = $2 while $data =~ m[(...): (...)]g

m[
# First we want the key, the text preceding the : 
...
       \Z         # the EOS
    )
]gxs;

#! perl -slw
use strict;
...
          'Remarks' => ' DIRECTIONAL BORING=NO. DEPTH EXCEEDS 7 FEET=N
+O. TICKET EXPIRES AFTER 04/22/04',
          'Dig No ' => ' A081   Prior: 2     Digstrt: 03/30/04  Time: 
+10:45'
        };