1
 Abra su programa en el editor de Perl 
 2 
 Eliminar todos los caracteres numéricos , escriba lo siguiente : . 
 
 $ StringUser_ID = s /^ \\ d //g; . 
 3 
Guarde el programa de descarga
 en este ejemplo , Perl busca en la cadena al principio , " /^ \\ " , encuentra ningún dígito , " \\ d" y elimina el dígito. El modificador global " //g" dice Perl para buscar números en toda la cadena , en lugar de detenerse en la primera instancia de un número. 
 
 
          
