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