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

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