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