#1 Have bodyextract look for mail addresses

[Padraic Renaghan]

Have the bodyextract function find hostnames in mail
addresses that are embedded in the body of the email.

Add the following to the first IF statement:

($line =~ s/@([a-z0-9._-]+\.[a-z][a-z][a-z]*)//i)