unless (open (FILE, $filename)) {
  # errorhandling
}
else {
  local $/ = "\n\n";
  while (<FILE>) { # $_ enthaelt nun einen Block

  } # while
  close (FILE);
} # else