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.