Select Code to Download

use utf8;
use Encode;
...
          "\t--> is ", utf8::is_utf8($s) ? "":"not ", "utf8\n";
    
}

 1:  41 42 43 ae 58 59 5a       --> is not utf8
 2:  41 42 43 ae 58 59 5a       --> is not utf8
...
10:  41 42 43 c2 ae 58 59 5a    --> is not utf8     # wrong
11:  41 42 43 ae 58 59 5a       --> is not utf8
12:  41 42 43 ae 58 59 5a       --> is utf8         # WRONG