#!/usr/bin/perl

use strict ;

my $string = "cl\xe9ment";

utf8::upgrade($string);

if (utf8::is_utf8($string)) {
  print "is utf8\n";
}

if (utf8::valid($string)) {
  print "is valid utf8\n";
}

if ($string =~ m/\xe9/) {
  print "match \\xE9\n";
}

if ($string =~ m/\x{c3a9}/) {
  print "match \\xC3A9\n";
}

##</code><code>##

is utf8
is valid utf8
match \xE9

##</code><code>##

is utf8
is valid utf8
match \xC3E9