I had to write something to pull email addresses out of a Csv file exported from Exchange. Here is the regexp I used.

m/SMTP:([a-zA-Z0-9]{3})\@([a-zA-Z0-9\.\-]*)\%?.*$/
[download]