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);
}