gets
$.+=$1.size while$_.sub! /(B+)A/,'A\1'
p$.-1