while ($row = ) { () = unpack("a9 a40 a15 a15 a15 a2 a9 a9 a9",$row); }