#! perl -slw
use strict;
use Data::Dumper;

my $m = <<'EOM';
Dig No : A081   Prior: 2     Digstrt: 03/30/04  Time: 10:45
Address: 26800 BRADLEY RD                      Subdivsn:
Remarks: DIRECTIONAL BORING=NO. DEPTH EXCEEDS 7 FEET=NO.
       : TICKET EXPIRES AFTER 04/22/04
Members: ABTL0A AMTCHA CECO5A COMC4A ITHA0A LKFO0A NSGC0A
EOM

my %parts;

$parts{ $1 } = $2 while $m =~ m[
	(?: \A | \n ) ( [^:]+ ) \s* : 
	(.*?)
	(?= (?: \n \S [^:]* : ) | \Z )
]gxs;

print Dumper \%parts;

__END__
P:\test>360501
$VAR1 = {
          'Address' => ' 26800 BRADLEY RD                      Subdivsn:',
          'Members' => ' ABTL0A AMTCHA CECO5A COMC4A ITHA0A LKFO0A NSGC0A',
          'Remarks' => ' DIRECTIONAL BORING=NO. DEPTH EXCEEDS 7 FEET=NO.
       : TICKET EXPIRES AFTER 04/22/04',
          'Dig No ' => ' A081   Prior: 2     Digstrt: 03/30/04  Time: 10:45'
        };