Regex fro email addresses

[Camilo Gonzalez]

Does anyone have a regex handy that will extract email adresses and nothing
but? I have a large document with email addresses scattered throughout. The
addresses are preceeded and followed by a space.

#!/usr/local/bin/perl
print <<'         EOF'
         Camilo Gonzalez
         Web Developer
         Taylor Johnson Associates        
          [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> 
          www.taylorjohnson.com <http://www.taylorjohnson.com/> 
         EOF