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

##</code><code>##

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