Select Code to Download

sub decode_COMP3 {
    my $digits = unpack "H*", $_[0];
...
    else { $digits .= $sign; $sign = '?' };
    "$sign$digits"
};