この程度のこともできんのか?
s/<(?:(?!BR|\/?A[^>]*).)*>//g;