{
  local $/ = "\x0C";      # form-feed character (^L)
  while (<>) {            # $_ contains one whole "page"
    @lines = split /\n/;  # split into lines if you need to
    ...
  }
}
# $/ is now back to its "normal" setting