#!perl -w
use strict;

my @indata= (0xd4, 0xf2, 0x9c, 0x0e);
my @outdata;
my $outbytepos= 0;
my $outbitpos= 0;
for (my $inbytepos= 0 ; $inbytepos<@indata ; $inbytepos++)
{
    for (my $inbitpos=0 ; $inbitpos<8 ; $inbitpos++)
    {
        my $bit = ($indata[$inbytepos]>>$inbitpos)&1;
        $outdata[$outbytepos] |= ($bit<<$outbitpos);

        $outbitpos++;
        if ($outbitpos>=7)
        {
            $outbytepos++;
            $outbitpos= 0;
        }
    }
}
print pack("C*", @outdata);
