#!/usr/bin/perl -w
use strict;
use IO::Socket::INET;
$| = 1;

my @bin_data;
my @hex;
my $count;
my %h2b = (0 => "0000",
        1 => "0001", 2 => "0010", 3 => "0011",
        4 => "0100", 5 => "0101", 6 => "0110",
        7 => "0111", 8 => "1000", 9 => "1001",
        a => "1010", b => "1011", c => "1100",
        d => "1101", e => "1110", f => "1111",
        A => "1010", B => "1011", C => "1100",
        D => "1101", E => "1110", F => "1111",
);

my $out = "12315141800F1F5F3F3F63410026DE8F45";

print "hex string = $out\n";

my $c=0;

for ($count = 0; $count + 2 <= length($out); $count += 2) {
        $hex[$c] = substr($out,$count,2);
        $bin_data[$c] = %h2b->{substr($hex[$c],0,1)}.%h2b->{substr($hex[$c],1,1)};
        print "count=$c hex=$hex[$c] bin=$bin_data[$c]\n";
        $c++;
}