Select Code to Download

pack('H*', '4142A0B1')

decode($enc, pack('H*', '4142A0B1'))

use strict;
use warnings;
...
    my $s = decode($enc, pack('H*', '4142A0B1'), sub { "?" });
    printf("%-11s %s\n", "$enc:", $s);
}