Select Code to Download

After $utf8 = decode('foo', $octet); ,

...
  In ISO-8859-1                              ON
  In any other Encoding                      ON
  ---------------------------------------------

#use utf8;
#use encoding 'iso-8859-1';
...
$a=Encode::decode('iso-8859-1',$a);
$b=Encode::decode('iso-8859-1',$b);
print "a=",Encode::is_utf8($a)," b=",Encode::is_utf8($b),"\n\n";

${^UNICODE}=63
a= b=
a=1 b=1