Filtrado con perl (OT)

[Darwin Betancourt]

Amigos de la lista pido disculpas anticipadas por el OT

Mi problema es el siguiente tengo un archivo de texto con direcciones de 
correo electronico y otros constenidos que no me sirven..
La pregunta es como puedo hacer para filtrar las direcciones de correo 
eletronico utilizando perl
y mandarlas a otro archivo, habia pensando en algo como la expresion 
regular: [a-z]*@misitio.net.ec pero mi problema es que no se donde ni 
como ubicarla

#!/usr/bin/perl
open(FILE, $ARGV[0]);
while(<FILE>) {
    [a-z]*@misitio.net.ec
    print;
}
close(FILE);

Si alguien me puede hechar una mano..

Gracias anticipadas



-- 

"O
|\_
|-|\
Darwin Betancourt (drw)
User Linux #286294 counter.li.org
Distribucion: Debian Sarge
Kernel 2.6.0
Centro de Computo
Municipio de Loja