my $string = do{
  open my $fh, '<', 'filename' or die $!;
  local $/ = undef;
  <$fh>;
};