my $file = 'myverylargefile.bin';
{
  local *INPUT;
  local $/ = \1;
  open INPUT, '<', $file or die $!;
  while(<INPUT>)
  {
    ## process here...
  }
}