{
    local $/ = "";

    while (<$file_handle>) {
        # $_ contains a paragraph of text read from $file_handle
        # Process each paragraph here
    }
}