Select Code to Download

my $string = "The quick brown fox jumps over the lazy dog.";
my $count = 0;
$count++ while $string =~ /(the)/gi;

while (<IN_FILE>) {
  my $count = 0;
...
    }
  }
}