No need for the capture and substitution by itself!

knoppix@Microknoppix:~$ perl -E '
> $str = q{hi hi harshmane hi hi};
> $cnt = () = $str =~ m{hi}g;
> say $cnt;'
4
knoppix@Microknoppix:~$
[download]

I hope this is of interest.