open( IN, $file );
{
    local $/ = "";
    while (<IN>) {  # $_ contains a paragraph of one or more lines
        if ( /\"/ ) {
            # this paragraph contains at least one double-quote
            ...
        }
    }
}