open(IN, '<', $ifilename);
binmode(IN);
while (!eof IN) {
  read(IN, my $binstring, $length);
  my $hexstring = unpack("...", $binstring);
}
[...]
my $newbin = pack("...", $hexstring);