- or download this
$hash{ $1 } = $2 while $data =~ m[(...): (...)]g
- or download this
m[
# First we want the key, the text preceding the :
...
\Z # the EOS
)
]gxs;
- or download this
#! 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'
};