いや、FAQ的にはこれでできてた。
$count = () = $str =~ /\b$KEY\b/og;