Select Code to Download

@sentence = split /\s/,"perlmonk perlmonk perlmonk "; 
$numWords = @sentence;

@sentence = split /\s/,"perlmonk perlmonk perlmonk  and some other wor
+ds that are not perlmonk"; 
foreach $word (@sentence) { 
   if ( $word =~/perlmonk/) {
      $numOccur++;
   }
}