map$a[++$i-($a{$j+=/A/-/B/}//=$i)]=0,<>=~/./g;print$#a