use Encode qw( decode );

for (qw(
   iso-8859-1 cp1252
   iso-8859-2 cp1250
)) {
   printf( "%-11s U+%04X\n", "$_:", ord( decode($_, "\xA3") ) );
}