html - 「<」と「>」を「<」に置き換える方法 そして「> Perl のexceptおよびtextタグ

Question

正規表現を使用して、Perl のandを<andとexceptとタグに置き換えたい:>&lt;&gt;<img src=""><a href="">text</a>

$a= qq~<a href="">test</a> <script> <img src="">~;
$a =~ s/<([^img|a])/&lt;$1/ig;
$a =~ s/([^<a(.*?)])>/$1&gt;/ig;
print "\n$a\n";

しかし、それは内部の '>' も同様に置き換えます

<a href=""&gt;test&lt;/a> &lt;script&gt; <img src=""&gt;