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