Select Code to Download

sub encode_BCD {
    return pack 'H*', join '', @_
}

-1,234,56
0001 0010 0011 0100 0101 0110 0111 1101
...
$ perl -le " print join q/ /, unpack q/(A4)*/, unpack q/B*/, pack q/H*
+/, q/1234567-/ "
0001 0010 0011 0100 0101 0110 0111 1101