Try the Email::Find module, prehaps.

update: You say you are writing an auto-responder, and thus I think you won't need to search for an email adresses in completely arbitrary text. In that case Mail::Address and (possibly) Mail::Header and Email::Valid should be enough to (probably more easily and reliabily) do what you need.