in reply to extract email addresses

The Email::Address module should extract them.

Caution: Contents may have been coded under pressure.