正規表現といったのは、こっちのこと。

my $count = $str =~ s/(\Q^\E)/$1/g;