Select Code to Download

#!/usr/bin/perl
use warnings;
...
print Encode::is_utf8($ustr)
      ? "is" : "isn't",
      " tagged as a unicode string\n";

Here is how Encode takes care of the utf8 flag.

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