There are some cunning modules that may help. I suggest:

• Email::Find - Finds emails in text
• Email::Valid - Checks to see if email is valid
• Mail::Address - manipulate address

use Emails::Find;
find_emails($result, \&callback);

sub callback {
   my $email = shift;
   return if $email->host eq 'uu.net';
   return if $email->host =~ /apnic\.(?:com|net)/;
   return if $email->address eq 'NOC@SPRINT.NET';
   # etc
   print $email->address, "\n";
}
[download]

Hope this helps.