$ perl -MHTML::Entities=encode_entities -wle 'print encode_entities(chr hex "20AC")'
€

##</code><code>##

$ perl -we 'print chr(hex "A3")'|perl -MEncode -MHTML::Entities=encode_entities -wle 'my $x = <>; print encode_entities(decode("cp1250", $x))'
&#x141;