my $re_record = qr[

#LastName, FirstName  Home <hm phone>   field <value>
([^,]+)  ,([^ ]+)   \sHome <([^>]+) >\s+field\s<([^>]+)> \s*\n

#Address1             Work <wk phone>   field\s<value>
(.*)                  Work <([^>]+) >\s+field\s<([^>]+)> \s*\n

#Address2                               field <value>
(.*)                                    field\s<([^>]+)> \s*\n

#City, State, zip     field <value> field <value>          
([^,]+),([^,]+),(.*)  field\s<([^>]+)>\sfield\s<([^>]+)> \s*\n

\s*                                                         \n    

#field <value>      field <value>        field <value>
field\s<([^>]+)> \s+field\s<([^>]+)> \s+ field\s<([^>]+)> \s*\n

#field <value>      field <value>        field <value>
field\s<([^>]+)> \s+field\s<([^>]+)> \s+ field\s<([^>]+)> \s*\n

#field <value>      field <value>        field <value>
field\s<([^>]+)> \s+field\s<([^>]+)> \s+ field\s<([^>]+)> \s*\n

]x;

my $record = slurp_file( $filename );

my %record; @record{ qw[ .... ] } = ( $record =~ $re_record );

$personnel{ .... } = \%record;