my $a = unpack("B32", pack("N", $a));
$a =~ s/^0+(?=\d)//;
print $a;