#!/usr/bin/perl -w
use strict;

my $addrs = do { local $/; <DATA> };
my @addrs = grep { !/domain\.com\z/ }
 $addrs =~ /"(\w+\@[\w\.]+)"/g;
my %addrs = map { $_ => 1 } @addrs;

print join("\n", keys %addrs), "\n";

__DATA__
","lliu5@yahoo.com","lliu5@yahoo.com","SMTP","support@domain.com","support@do=
main.com","SMTP"
","ishmale423@excite.com","ishmale423@excite.com","SMTP","support@domain.com"=
,"support@domain.com","SMTP"