{ local $/ = chr(0); # if this occurs reasonably often in the file
  open (FILE, "file.binary");

  while ( <FILE> ) {
      while ( length() ) {
          my $byte;
          ( $byte, $_ ) = /^(.)(.*)$/; 
          ... Code here, processing $byte ...
      }
   }
   close FILE;
}