{
    local $/; # slurp in a file
    my $contents = <$fh>
    ...
}

# now we go back to reading a file line-by-line again

while (<$fh>){
   ...
}