#! /usr/bin/perl -w
use 5.014;
use feature 'unicode_strings';
use strict;
use warnings;
use Text::Unidecode;

my $string = "\x{c3}\x{a9}";
my $ascii = unidecode($string);
print length($ascii)."\n";
print "$ascii\n";

------------------
~# ./test.pl
4
A(c)