Select Code to Download

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

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