sub amp { ... }
my $coderef = \&

##</code><code>##

sub amp { ... }
my $coderef = \&

##</code><code>##

s[(&|;)][$1 eq '&' ? '&amp;' : '&#59;']gex;