Help for this page

Select Code to Download

Select or download this

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

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

Select or download this

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