perlでファイルからメールアドレスを抽出

perlでエラーアドレスを抽出したく
いろいろ調べてみましたがどうにもうまくいきません。
主に携帯アドレスが中心ですので
RFCに基づいているというよりは簡易な正規表現で、
重複排除くらいはできると理想なのですが
既成で何かいいものはありませんかね？

$format='[\w.-]+\@([\w-]+\.)+\w+'; # 簡略なメールアドレス正規表現
open(IN, "エラー.dbx");
foreach(<IN>) {
if($_ =~ /($format)/){
push(@emails,$1."\n");
}
}
close(IN);

print @emails;

とか

open(IN, 'エラー.dbx');
@data = <IN>;
close(IN);
foreach(@data){
s/　//g;
print "$_\n" if /([\w._-]+@[\w._-]+)/ ;

}

試してみましたがうまくいきませんでした。

No.2 ベストアンサー 回答者： okmotokun 回答日時： 2009/02/27 23:40

これでどうかな？

$myaddress='[e-mail]'; # 自分のアドレス
open(IN, "エラー.dbx");
foreach(<IN>){
　if(/^To: .*?([-+\w.]+\@[-\w.]+\.\w{2,5})(\W|$)/ && $1 ne $myaddress){
　　push(@emails,$1."\n");
　}
}
close(IN);
print @emails;
※空白は変えてね！

No.1 回答者： ORUKA1951 回答日時： 2009/02/26 23:43

携帯電話のメールアドレスは、規格外のものもあって難しいです。

参考サイトを紹介しておきますが、一筋縄では行かない。
【参考サイト】
Perlメモ( http://www.din.or.jp/~ohzaki/perl.htm )
→メールアドレスの正規表現 ( http://www.din.or.jp/~ohzaki/perl.htm#Mail )