$hex = pack ( "H*", $a ); 
$bin = unpack ( "B*", $hex ); 
print "$bin\n";