my $count = 0 ; while ($text =~ /\b$key\b/ig) { $count++ ; } ;