如何替换Perl中所有HTML编码的重音？

#!/usr/bin/perl

use strict;
use warnings;

my $string = "This is a string with accented characters: é, ñ, ü, ç.";

# Replace accented characters with their HTML entities
$string =~ s/é/é/g;
$string =~ s/ñ/ñ/g;
$string =~ s/ü/ü/g;
$string =~ s/ç/ç/g;

print $string;