Select Code to Download

    $churchill = qq{"If I were your husband," he said, "I should drink
+ it."};

    while ($churchill =~ /"(.*?)"/g) {
      print $1, "\n";
    }

    while ($churchill =~ /"([^"]*)"/g) {
      print $1, "\n";
    }