my $data;
{
  local $/ = undef; # local means this change will be reversed at the end of the block
  $data = <$in_fh>;
}