my $flag_is_0 = "\xC9ric";  utf8::downgrade($flag_is_0);
my $flag_is_1 = "\xC9ric";  utf8::upgrade($flag_is_1);

say substr($flag_is_0, 0, 1) eq substr($flag_is_1, 0, 1) ?1:0;  # 1