for (@{$memoryfile}[0,1]) {
    LogMess("Error: Binary input data detected",1), 
      return -1 if /[^[:print:]]/;
}