sub expand {
my ($server, $target, $data) = @_;
$data = decode_utf8($data);
$data =~ s{([^\p{Letter}\p{Punctuation}\p{Control}\p{Space}\p{Sc}[:ascii:]])}{
sub expand {
my ($server, $target, $data) = @_;
$data = decode_utf8($data);
$data =~ s{([^\p{Letter}\p{Punctuation}\p{Control}\p{Space}\p{Sc}[:ascii:]])}{