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

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