Select Code to Download

foreach my $entry ( split( /;/, $file_data ) ) {
  do { s/^\s+//; s/\s+$//; } for $entry;
  push @email_list, $entry;
}

print join( "\n", sort map { (my $t=$_)=~s/^\s+//;$t=~s/\s+$//;$t } sp
+lit( /;/, $file_data ) ), "\n";

my @email_list = sort map ... split( /;/, $file_data );
print join( "\n", @email_list ), "\n";