Wouldn't it be faster to use unpack?

while ( read(FILE, $buf, 512) ) {
     $binhex = unpack "H*",$buf;
     # do something with $binhex
}
[download]