use strict;
use warnings;

my $h = 'F23CC481AAE190180000000014000008';
my $bin;
$bin .= sprintf '%04b', hex $_ for split //, $h;
print $bin;

__END__

11110010001111001100010010000001101010101110000110010000000110000000000000000000000000000000000000010100000000000000000000001000