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