Help for this page

Select Code to Download

Select or download this

require bytes;

...
print(bytes::substr($x,1,1) eq "\xCA" ?1:0,"\n");  # 1
utf8::upgrade($x);
print(bytes::substr($x,1,1) eq "\xCA" ?1:0,"\n");  # 0