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