$ perle 'my %ent = qw{& &amp; < &lt; > &gt;}; say "... < & > ..." =~ s/([&><])/$ent{$1}/gr'
... &lt; &amp; &gt; ...