$to_email =~ s/.+To:\s(.+?)xxx.*/\1/;