c:\@Work\Perl\monks>perl -wMstrict -le
"my $title = 'C .NET Cobol .NET .NET .NETER Perl C++ C+ xC++ C+++ C++x xC x.NET .net';
 ;;
 for my $kw (qw(.NET C C++)) {
   my $count = () = $title =~ m{ (?<! \S) \Q$kw\E (?! \S) }xmsig;
   print qq{'$kw' $count};
   }
"
'.NET' 4
'C' 1
'C++' 1