use strict;
use warnings;

my $test = "État";
my $test2 = "É";
if ($test =~ /$test2/) {print "matches\n"} else {print "does not matches\n"}