local $/ = \56;
while (<$file>) {
   # $_ contains 56 bytes.
   ...
}