How many "abab" are "abababab"?

2:

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

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

3:

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

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