Select Code to Download

my $count;
foreach (@words) {
...
    elsif ($count) { print "$count quoted words\n"; $count = 0 }
  }
}