Invalid conversion in sprintf: "%b" at ./foo.cgi line 13.

##</code><code>##

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