$a[++$i-($a{$j+=/A/-.5}//=$i)]=0for<>=~/^|./g;print$#a