#!/usr/bin/perl

use warnings;
use strict;

while (<DATA>) {
        print if m/\b.+?".+?\b/s;
}

__DATA__
Paragraph
to ignore.

Paragraph with "double quoted
text" to get.

Another paragraph
to ignore.