ある文字列内に、特定の文字列が何個有るかを調べる場合はどのようにしたら
速いでしょうか？

とりあえず以下を考えましたが他に速い方法ないですか？
index関数を使用する方法もやってみましたが遅くて。

-----------------
my $text = 'あるないないあるあるある';
my $count = 0;
while($text =~ /ある/g){
　$count++;
}
print $count;