Try this:

{
  local $/ = \80;
  open HANDLE, "<", "largefile";
  while (<HANDLE>)
  { 
    print "$_\n";
  }
  close HANDLE;
}
[download]