while ( defined ( $_ = do { local $/ = "\x00"; <$ORIG> } ) ) {
  # ...
}