Perl Reg Expression to filter mail address

perl -wne'while(/[\w\.\-]+@[\w\.\-]+\w+/g){print "$&\n"}' file_contain_mail_address