knoppix@Microknoppix:~$ perl -E '
> $dec = 167;
> say unpack q{B*}, pack q{c}, $dec;
> printf qq{%08b\n}, $dec;
> unshift @bits, do {
>    my $bit = $dec % 2 ? 1 : 0;
>    $dec >>= 1;
>    $bit;
>    } for 0 .. 7;
> say join q{}, @bits;'
10100111
10100111
10100111
knoppix@Microknoppix:~$