my $whole_file;
{
   local($/) = undef;
   $whole_file = <F>;  # <> operator reads in all of the data from filehandle F
}

##</code><code>##

my $whole_file = do { local $/; <F> };