$email =~ s/\,.+$//gi;