[perl] cadenas y capturar variable

[Cesar Villegas Ureta]

Holas amigos listeros

Necesito una ayuda q de seguro es muy facil
tengo un archivo q contiene una lista mas o menos asi

1000 tengo amigos de varios paises
23 mi mama me mima
2 tengo 2 perros y me gustan
873 si no digo la verdad me matan
34 me voy de viaje
....

y asi una lista inmensa
lo q yo quiero es sumar los valores de cada linea q contengan un grupo
de caracteres en comun, por ejemplo: 

si tiene el caracter "de" en la linea, sumaria 1000 + 34 
si tiene el caracter "me" sumaria 23 + 2 + 873 + 34 
si tiene el caracter "mama" se queda en 23

lo de ubicar la cadena se q lo hago con  =~ /cadena/ lo q no se es como
coger el numero y luego poder sumarlo

Saludos

Cesar Villegas Ureta
"Slayer_X"
--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl