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