use Person;
  for my $person (Person->parse_from_file('/tmp/somefile')) {
    next unless $person->surname eq 'Region';
    $person->tel('(123) 456-7890');
    print $person->text;
  }