my $dataFile = q{/path/to/myDataFile};
my $text = do {
   open my $dataFH, q{<}, $dataFile
      or die qq{open: < $dataFile: $!\n};
   local $/;
   <$dataFH>;
   };