/^(.+?)\s+<?(\S+?)>?$/

##</code><code>##

$ perl -E 'say join " = ", /^(.+?)\s+<?(\S+?)>?$/ for q{My name <email@example.com>}, q{My Name email@example.com}'
My name = email@example.com
My Name = email@example.com