Help for this page

Select Code to Download

Select or download this

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 (?:\s|$) }xmsig;
print "$count\n";   # prints "1" for both C and C++