open(FH,"large.file") or die $!; while($row=){ unpack("a9 a40 a15 a15 a15 a2 a9 a9 a9",$row); }