sub decode_BCD {
    unpack "H*", $_[0];
};