c:\@Work\Perl\monks>perl -wMstrict -le
"my $title = 'C C C C++ C++ C++ .NET .NET .NET';
;;
for my $kw (qw(.NET C C++)) {
  my $count = () = $title =~ m{ (?:^|\s) \Q$kw\E (?:\s|$) }xmsig;
   print qq{'$kw' $count};
   }
"
'.NET' 2
'C' 2
'C++' 2