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