if ($word =~ /[\w.-]+\@\w+\.\w/) { # looks like an e-mail address