Как вариант - предварительно выбирать все теги. А потом уже отдельным регэкспом проверять дозволенный это тег или нет. Если пишется на перле, то надо обратить внимание на модификтор 'e' для регэкспов.
Выглядеть это будет примернол так:$text = q~
<p align="left"><a href="link">Link?</a></p>
~;
$text =~ s/(<.*?>)/change_tag($1)/eg;
print $text;
sub change_tag
{
$tag = $_ = shift;
# открывающий a - можно
return $tag if (/<\s*(a|a\s+.*?)>/i);
# закрывающий a - можно
return $tag if (/<\s*\/\s*a\s*>/i);
# всё остальное - нельзя
return "";
}
Этот код подразумевает, что внутри тега не встречается символа >, как и должно быть в правильном (x)html. Но на практике часто это требование не удовлетворяется (например <a href="javascript:if(a<b)call_comething_strange();">). В принципе регэкспы можно модифицировать и под подобные случаи, но тогда они будут уж слишком монстрообразны; мне лень.
Самый правильный метод, применим в случае если имеется валидный xhtml, тогда можно произвести довольно банально xslt преобразование. Вот.