Select Code to Download

my %foo;
my $string = 'Poet Blake had a milky white cat. He used to call it Pus
+sy.';
for my $word (split /\s+/, $string) {
   $foo{$word}++;
}

my $cnt;
for my $word (keys %foo) {
    $cnt++ if $bar{$word};
}

my $word_count = scalar keys %foo;