my ($email,$foo) = split(/\s/,$text,2);