copy ONLY the from "email address" from the current selected apple mail email

I am try to create a simple AS that can copy ONLY the from "email address" from the current selected apple mail email and not the name also.

Currently it copies like: The Name <me@domain.com>

I would like to parse it out so the paste is just: me@domain.com

Can anyone help help mod this script to just pull out the email address?

tell application "Mail"

set theSelectedMessages to the selection

set eachMessage to item 1 of theSelectedMessages

set theSender to sender of eachMessage

set the clipboard to theSender

end tell