convert binary to hex

[Majian]

Hi ,all :

  I'd like to convert  binary file  intohex ,  but when I use perl's built
in functions I keep getting extra bits on the end.

cat bin_file
00000000000000000000100001100010
00010000010100100001100001000010

My perl script is the following :

#!/usr/bin/perl

use strict;

while (<>){
          my $line = $_;
           my $hex = unpack ("H*", pack("B*", $line));
           print "$hex\n";
}



But the result is :
 0x0000086200
 0x1052184200


And  I  use the "unpack ("H*", pack("B32", $line)" and the result is :

 0x00000862
 0x10521842

Why does it become that?


Thanks in advance ~~