while(my $chunk = <DATA>)
  {
    if(length($chunk) > 27)
      {
        # Process holdover line
        process_line($line) if($line);
        $line = '';
        while($chunk =~ s/^(.{27})//)
          {
            process_line($1);
          }
        $line = $chunk;
      } 
    elsif((length($line) + length($chunk)) > 28)
      {