#!/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++;
}

##</code><code>##

Using a hash as a reference is deprecated at ./hexconvt.pl line 27.
Using a hash as a reference is deprecated at ./hexconvt.pl line 27.
hex string = 12315141800F1F5F3F3F63410026DE8F45
count=0 hex=12 bin=00010010
count=1 hex=31 bin=00110001
count=2 hex=51 bin=01010001
count=3 hex=41 bin=01000001
count=4 hex=80 bin=10000000
count=5 hex=0F bin=00001111
count=6 hex=1F bin=00011111
count=7 hex=5F bin=01011111
count=8 hex=3F bin=00111111
count=9 hex=3F bin=00111111
count=10 hex=63 bin=01100011
count=11 hex=41 bin=01000001
count=12 hex=00 bin=00000000
count=13 hex=26 bin=00100110
count=14 hex=DE bin=11011110
count=15 hex=8F bin=10001111
count=16 hex=45 bin=01000101