undef $/;
my $bigfile = <$fh>;

# Do some processing on $bigfile

##</code><code>##

while (my $line = <$fh>) {
    # Do some processing on $line
}