Help for this page

Select Code to Download

Select or download this

my $data;
while (<FILE>) {
   $data .= $_;
}

Select or download this

my $data = do {local $/ = undef;<FILE>};

# $/ contains it's original value (\n) now