1
 Abra un nuevo programa Perl. Inserte el cursor al inicio del archivo 
 2 
 Escriba el siguiente código: 
 
 sub trim ($ ) { 
 
my $ string = cambio ; < . br>
 $ string = ~ s /\\ s + $ //; 
 
 retorno $ cadena ; 
 
 } 
 
 Esta función crea un archivo temporal que toma el valor de la cadena que se pasa a la función . A continuación, utiliza una expresión regular para eliminar los espacios finales . El " \\ s " indica a la función de mirar sólo por espacios en blanco y el "$" dice que mirar sólo al final de la cadena. Después de quitar los espacios finales , la función devuelve la variable en el programa principal. 
 3 
 Guardar el archivo de programa . 
 
 
          
