my $kw = 'C'; # or use C++

my $title = ".net C .NET Cobol .NET C++ .NET .NETER Perl IT x.NET .net";
my $count = () = $title =~ m{ (?<! \S) \Q$kw\E \b }xmsig;
print $count;
die;