while ( <FOO> ) { $_ = substr($_, 0, 1024); # other stuff }

##</code><code>##

{
    local $/ = \1024;
    while ( <FOO> ) { # stuff }
}
# or
sysread FOO, $_, 1024; # keeping track of offset