{
   open(my $FILE, "file.binary") or die $!;
   binmode($FILE);

   local $/ = \1;
   while ( my $byte = <$FILE> ) {
      ...
   }

   close $FILE;
}