#!/usr/bin/perl -w
use strict;
use DBParser;  # My new module I haven't built yet
open (OUTPUT,"> /tmp/somefile") or die $!;
select OUTPUT;
$|++;
$/="";
while (<>) {
    my $key = DBParser::KeyGrab($_);
    my %record = DBParser::DBParse($_);
    next unless ($record{$key}->{Key}->{Surname} eq "Region");
    $record{key}->{Tel} = "(123) 456-7890";
    print DBParser::PrintRecord;
}