##
decode($enc, pack('H*', '4142A0B1'))
##
##
use strict;
use warnings;
use open ':std', ':locale';
use Encode qw( decode );
for my $enc (qw(
ASCII
cp850
cp1252
iso-8859-1
UTF-8
)) {
my $s = decode($enc, pack('H*', '4142A0B1'), sub { "?" });
printf("%-11s %s\n", "$enc:", $s);
}