{
    local $/ = "";
    while (<$fh>) {
        # $_ now has exactly 1 section in it
    }
}