>338
これでどう？

%conv= ('<' => '&lt;',
        '>' => '&gt;',
        '&lt;' => '<',
        '&gt;' => '>');
$_= '< &lt; < > &gt; <';

s/<|>|&(?:l|g)t;/$conv{$&}/g;
print;