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