use strict;
use warnings;
use Data::Dumper;

my $first = 'Name';   # Name of first field in each record
my %data;

$/ = "$first: ";
<DATA>;
while (<DATA>) {
    chomp; $_ = $/ . $_;
    %data = ();
    $data{$1} = $2 while m/^(.*?): (.*?)$/mg;
    print Dumper(\%data);
}

__DATA__
Name: Theodore Pride
Phone: (911) 911-9111
Address: 1234 Road
Name: Theodore Pride
Phone: (911) 911-9111
Address: 1234 Road