В файл text.txt кидаешь всё что надо отпарсить
В конце получишь мыла в файле pars_emails.txt

#!/usr/bin/perl -w

open (FILE , "<text.txt");
chomp (@text = <FILE>);
close FILE;

undef %saw;

while (@text)
{
$pars = shift @text;
$pars =~ /\b(.*?)\@(.*?)\.(.{2,4})/g;
$email = "$1\@$2\.$3";
push @in,$email;
}

@in = grep(!$saw{$_}++, @in);
open (FILE2 , ">>pars_emails.txt");

while (@in)
{
$end = shift @in;
print FILE2 "$end\n";
}
close FILE2;