$ perl -CO -wle'print lc "\xc9"; print lc substr "\x{100}\xc9", 1'