Select Code to Download

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

my @emails = split(/\s*,\s*/, $email);

...

# Keep only the first three.
splice(@emails, 3);

$email = join(', ', (split(/\s*,\s*/, $email))[0..2]);