my $s = do {
  local $/;
  <$fh>;
};