my @emails = (split(/\s*,\s*/, $email))[0..2];