1
Abra un nuevo archivo de Perl en su editor de texto favorito y añada las siguientes líneas , que importan el módulo de codificación y declarar una cadena de prueba : Usa
 codificar , $ octects = "Hola Mundo" ; 
 2 
 Añada la siguiente línea a su archivo para convertir la cadena de UTF - 8 a formato interno de Perl : 
 
 $ cadena = decode ( " ; UTF - 8 " , $ octetos ) ; 
 3 
 Inserte las siguientes líneas en su archivo - la función de codificar convierte la cadena en UTF - 16 , y la sentencia print muestra que : 
 
 $ octetos = codifican ( "UTF - 16 ", $ cadena) ; print $ octetos 
 
 
          
