my $kw = ".NET";   
# For different scenarios pls use C (& then C++) instead of .NET for $kw
my $title = "C .NET Cobol .NET .NET .NETER Perl";
my $count = () = $title =~ /$kw/ig;  
print $count;
die;