in reply to Regex for e-mail contacts name

For your given examples, it seems that /\S+@\S+/ will do.

In Section Seekers of Perl Wisdom