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";
}