On Thursday 27 May 2021 23:35:32 Bruce  Johnson wrote:
> use bytes; $string=substr($orig,0,4000);

Hello! This is really suspicious. See **BOLD** description of 'bytes' module:

  **Use of this module for anything other than debugging purposes is strongly 
discouraged.**

  **If you feel that the functions here within might be useful for your 
application, this possibly indicates a mismatch between your mental model of 
Perl Unicode and the current reality.**

Reply via email to