my $count = () = $text =~ /\b$key\b/ig ;