Perl - Joining of Binary values

[Dharshana Eswaran]

Hi all,

I am working on the code below:

use strict;
use warnings;

my %TypeofNumber = (
 '00' => Integer,
 '01' => Floating,
 '10' => Char,
 '11' => Double );


my @hex = ("14", "2a", "11", "83");
$hex_length = @hex;

for($i=0; $i<$hex_length; $i++) {

my $binary = unpack 'B*', pack 'H*', $hex[$i];

print "$binary\n\n";

my @fields = unpack 'A2A2A4', $binary;

my $i;
printf "%-4s => %s\n\n", $fields[0], 'Ext';

print "TypeofNumber\n";
printf "%-4s => %s\n\n", $fields[1], $TypeofNumber{$fields[1]};

printf "%-4s => %s\n\n", $fields[2], 'NumberingPlan';

}

Now i need to split the binary value of the first element into two halves
(A7A1), seecond element into A6A2, third element into A5A3 and so on...

Then i need to display the 7bits of the first element, then join 1bit of the
first element to the 6bits of the second element(that is join A1 of first
element and A6of the second element) and then display it, then join A2 of
the second element and A5 of the third element and then display it and so
on.

How to go bout this?

Thanks and Regards,
Dharshana