Select Code to Download

sub trim {
   my ($s) = @_;
...
...
my @other_addresses = map trim, split( /\n/, $email_list );
...