my $text = do {
    open my $fh, '<:raw', 'test_file.txt'
      or die "Unable to open input file: $!\n";
    local $/;
    <$fh>;
};