s/^B(AB*)?|^A(\KA|BA*\K)B*/$&=~y,AB,BA,r/e,s/A/B/&&print for<>