use Modern::Perl;
use utf8;
use RTF::Writer qw/rtfesc/;

my $escaped = rtfesc('aà eé iî oö uü');
say $escaped;