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