my ($name,$email) = join " = ", /^(.+?)\s+<?(\S+?)>?$/ for param("email");