print length($hline),"\n";

##</code><code>##

($xh,$yh,$zh) = unpack("x31A8x1A8A8",$hline);