Infos sur une variable puis comment saucissonner ?

Coucou, Y a quelqu'un ?

Où est le forum des Mongeur de perl ?

Voila :
#!/usr/bin/perl -w
open (IN, "<$ARGV[0]");
open (OUT, ">out.tmp" );
$cpt=0;
while ($line = <IN> ) {
if ($line =~ /Se_que_je_cherche/)
{
$cpt++;
print OUT $line;
close OUT;
rename "out.tmp", $cpt.".html";
open (OUT, ">out.tmp");
} else {
print OUT $line;
}
}
close OUT;

Je voudrais à partir de ce script : découpé un fichier de 5=
0 Ko lignes par lignes en plusieurs fichiers, un par ligne, et en plus les =
lignes ce compose de la sorte :
./________.org/vd.aspx@t=videos&cat=4&l=es:______@________.org

Ce que je veux c'est extraire le mail, je veux supprimer tous ce qu'il y a =
avant les deux point, et toutes les lignes commences par un point !
Je préfère pas trop chercher, c'est à dire que tu me mâ=
chouille le travail

Merci

Ptilou