Help for this page

Select Code to Download


  1. or download this
    $parts{ $1 } = $2 while $m =~ m[
    (?: \A | \n ) ( [^:]+ ) \s* : 
    (.*?)
    (?= (?: \n \S [^:]* : ) | \Z )
]gxs;
  2. or download this
    # You have
'Remarks' => ' DIRECTIONAL BORING=NO. DEPTH EXCEEDS 7 FEET=NO.
...
'Prior' => 2,     
'Digstrt' => '03/30/04',
'Time' => '10:45'