my $count;
foreach (@words) {
  my $quote = ($_ eq '"');
  if ($quote ... $quote) {
    if (!$quote) { $count++ }
    elsif ($count) { print "$count quoted words\n"; $count = 0 }
  }
}