s((<[^>]*>))(local($_=$1);tr;\n;;d;$_)eg;