文字列中の、キーワードと完全一致する単語を数えたい。
下みたいなコードを書いて一応期待通りに動いていますが、もっとスマートな方法ありませんか？
なお、単語はスペースで区切られていて、hoge は hogehoge とは一致しないものとします。

my $KEY = 'hoge'; #キーワード
my $str = 'hoge hogehoge foo hoge bar hoge';
my $count = 0;
while($str =~ s/(^$KEY\s|\s$KEY\s|\s$KEY$)//) { $count ++; }
print "ans = $count\n";