map { /^..(A|B)./ ? [ $_, $1 ] : () } @a