my %subst = map { chr($_) => qq|&#$_;|} 0..255;

##</code><code>##

my $TXT = <<EOM;
Those oranges are 50¢
EOM
print &convert($TXT);
sub convert{
my $word = $_[0];
#ARGH!
return $word;
}###########################

##</code><code>##

Those oranges are 50&#162;