open FILEHANDLE, 'somefile.txt' or die $!;
my $string = do { local $/; <FILEHANDLE> };

##</code><code>##

open FILEHANDLE, 'somefile.txt' or die $!;
my $string = '';
while (<FILEHANDLE>) {
    $string .= $_;
}

##</code><code>##

my $scalar = <FILEHANDLE>;    # one line
my @array  = <FILEHANDLE>;    # whole file

##</code><code>##

undef $/;
my $scalar = <FILEHANDLE>;   # whole file

##</code><code>##

local $/;

##</code><code>##

local $/ = undef;

##</code><code>##

$/ = undef;           # Danger Will Robinson! Danger!

##</code><code>##

my $string = do {local $/;<DATA>};

##</code><code>##

my $data = do {local $/;<DATA>};
my $template = HTML::Template->new(scalarref => \$data);

##</code><code>##

my $template = HTML::Template->new(filehandle => \*DATA);