{
    # NOTE: code is untested
    my @chunks = ();
    local $/ = \102400;
    while(<$fh>) {
        my $chunk   = $_;
        my $last_rs = rindex($chunk, $/)
        push @chunks, substr($chunk, 0, $last_rs);

        seek($fh, 1, -(length($chunk) - $last_rs));
    }
}