use Encode;
  print join ('\n', Encode->encodings());

##</code><code>##

  is_utf8($_);

##</code><code>##

  $uni = encode_utf8($_);