Help for this page
Select Code to Download
Select
or
download this
my @count = $str =~ /\bthe\b/gi; print scalar @count, "\n";