[perl] novato con expresiones regulares

[aury]

Hola Lista :)

Estoy retomando mis practicas con Perl. Ahora estoy con
las expresiones regulares.

Estoy haciendo un script que me calcule el total de bytes
de un mail enviado. Esto lo saco del /var/log/maillog

Lo que quiero hacer es tomar en una varible el nro que le
sigue a: size=666

open(LOG,"$archivo") or die "No se puede habrir el
archivo $archivo\n";
while($linea = <LOG>){
   $size = ($linea =~ /size=\d+/);
   print("la variable size tiene $size \n");
  }
close(LOG);

Pero no funciona. La variable tira basura.
Si me dan una mano estare profundamente agradecido :)

Saludos,
aureliano
--------- Pie de mensaje --------------------------------
Visite: http://tlali.iztacala.unam.mx/~randrade/perl.shtml
Cancelar inscripcion:
mail to: majordomo@tlali.iztacala.unam.mx
text   : unsubscribe perl