$x = "foo\x{100}";
chop($y = $x);
$z = substr($x, 0, 1);  Dump($z);  # UTF8
$a = substr($y, 0, 1);  Dump($a);  # not UTF8