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