[Fran Smith]

¿De qué forma puedo convertir un código de puntos de Unicode a un char en Perl?

[Jhony10]

Yo lo he probado usando pack:

binmode STDOUT, ':utf8';
my $cadenauni = '\\u5315\\u4e03\\u58ec\\u4e8c\\u4e0a\\u53b6\\u4e4b';
$cadenauni =~ s/\\u(....)/ pack 'U*', hex($1) /eg;
print $cadenauni;

[Invitado_Jonathan A_*]

Quizás lo qué busques sea Unicode::Escape, te dejo un enlace con más información:

Por favor Identificate o Registrate para poder ver este contenido

[Fran Smith]

Gracias