my $data;
{
  local $/;
  open my $fh, '<', $file or die $!;
  $data = <$fh>;
}