m{
  A         # A
  (?:
    [^AB]*  # 0 or more non-A and non-B characters
    . B     # any character, then a B
  )*        # this combo, 0 or more times
  [^AB]*    # 0 or more non-A and non-B characters
  A         # an A
}x