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

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