Help for this page

Select Code to Download

Select or download this

'ABABABA' =~ /ABA/g;  # only matches twice
#^^^ ^^^ here and here
#  ^^^   not here

Select or download this

$_ = 'ABABABA';
while (/ABA/g) {
   print pos($_), "\n";
   pos($_)--;
}