#!/usr/bin/perl
use warnings;
use strict;

use Text::Unaccent::PurePerl qw(unac_string);
use Encode qw(encode);

binmode *STDOUT, 'encoding(UTF-8)';

my $string = "c\N{LATIN SMALL LETTER O WITH CIRCUMFLEX}te";
my $rstring = encode('UTF-8', $string);

print "$string $rstring\n";
my $direct = unac_string($string);
my $via_bytes = unac_string('UTF-8', $rstring);
print "$direct $via_bytes\n";  # cote cote