my($buf, $chunk, @lines);    
    while(read FILE, $buf, BUFFER_SIZE) {
        $chunk .= $buf;
        @lines = split /\n/, $chunk;
        $chunk = chomp $buf ? '' : pop @lines;

        foreach (@lines) {}
    }
[download]