#!/usr/bin/env perl 
use strict;
use warnings;
use Test::More;

my $instr = "a\xe9b\xe9";
my $outstr = $instr =~ tr/\xe9/e/r;
is ($outstr, 'aebe');
done_testing;