# abababab
# ----
#     ----

my $count = 0;
++$count while $string =~ /\Q$substr/g;

##</code><code>##

# abababab
# ----
#   ----
#     ----

local our $count = 0;
$string =~ /\Q$substr\E(?{ ++$count })(?!)/;