使用Perl找到邮件地址

#!/usr/bin/perl -w

open FILE, "/home/a/perl/web";

while(<FILE>)
{
        if (/\S+\@\S+\.\w+/) #(一个或更多的任意非空白字符@一个或更多的任意非空白字符.一个或更多的字符)
        {
                print "$&\n";
        }
}
close FILE;