<?xml version="1.0" encoding="windows-1252"?>
<node id="287747" title="Re: Perl Idioms Explained - my $string = do { local $/; &lt;FILEHANDLE&gt; };" created="2003-08-29 12:47:23" updated="2005-07-07 15:23:13">
<type id="11">
note</type>
<author id="72806">
artist</author>
<data>
<field name="doctext">
Also available is   [cpan://File::Slurp].
&lt;code&gt;
use File::Slurp;
my $string = read_file("somefile.txt");
&lt;/code&gt;</field>
<field name="root_node">
287647</field>
<field name="parent_node">
287647</field>
</data>
</node>
