my $piece_one_six_bits = '001100';
my $piece_two_six_bits = '001100';
my $piece_three_four_bits = '0101';

# Ugly, eh?
my $packaged_data = pack 'B*', "$piece_one_six_bits$piece_two_six_bits$piece_three_four_bits";