By narrowing the block that holds the local, you can further contain the effect.

  open(FILE, "<$foo") or die "$foo: $!";
  my $file = do { local $/; <FILE> };
  close(FILE);
[download]