note trizen <code>my $c = unpack("%32b*", pack "B$p", unpack "B$p", $v);</code> <br/><br/> Note that <code>$p</code> start with zero. 1015564 1015564