my $list = join('|', @allowed_tags);
$dirty_html =~ s!<\s*/?\s*(\w+).*?>!($a,$b)=($&,$1); $a if $b =~ /^(?:$list)$/!esg;