Select Code to Download

# abababab
# ----
...

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

# abababab
# ----
...

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