$_ = 'anyone@somewhere.com, gerard@spied.co.nz, mum@work.com, albert@s
+pied.co.nz, someonelse@hotmail.com';
my @emails;
foreach (split /\s*,\s*/) {
  push @emails, $_ if /\@spied\.co\.nz$/;
}
[download]

Or something like that :)

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg