chomp;
m/[^0-9A-F]/ and die "$& ?";
# print "# $_\n";
- s/./ unpack "B4", pack "H*", $& /ge;
+ $_ = unpack "B*", pack "H*", $_;
# print "# $_\n";
$_ = ("0" x ($cbbox[2] - $fbbox[2])) . $_;
# print "# $_\n";
# print "# $_\n";
$_ .= "0" x ($numbytes*8 - length);
# print "# $_\n";
- s/.{4}/ unpack "H", pack "B4", $& /ge;
+ $_ = unpack "H*", pack "B*", $_;
$_ .= "\n";
}
print;