local $/ = \128;
while (<$fh>) {
   ... $_ contains 128 bytes ...
}