- or download this
local $/= undef; # read entire file at once
my @text=<FH>;
- or download this
my $data;
open(FH,'<',$file) || die "Oops $!";
local $/ = undef;
$data = <FH>;
close(FH);
- or download this
use strict;
use warnings 'all';
...
my @data = <FH>;
close (FH);
print $data[0];