{ # create an extra scope
  local $/ = ""; # set record seperator to empty lines
  while (<INPUT>) {
      # $_ contains a paragraph of text from <INPUT>
  }
} # $/ is restored to its original value