# some ugly way to get rid of new line char(s)
$email =~ s/\r?\n//g;
# or maybe more practical
push @email, $_ for split /\r?\n/, $email
# and later
for(@email){
   # we have each line as an array element
}
[download]