{
  local $/ = "\n\n";
  while( my $record = <DATA> ) {
      print "This is a record:\n", $record;
      # do stuff with record
  }
}

__DATA__
This is a record

This
is
a
multiline
record

This is just another
address book record