Help for this page

Select Code to Download

Select or download this
```
/^(.+?)\s+<?(\S+?)>?$/
```

Select or download this

$ 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