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