perl 的mail嚴格Regex到底要怎麼寫?

#! /usr/bin/perl -w
$line = <STDIN>;
chomp($line);
if($line =~ /(^[a-zA-Z1-9]{1}\w*(\-{0,1}\w{1})*(\.{0,1}\w{1})*[a-zA-Z1-9]{1,}@([a-zA-Z1-9]{1,}\-*\.*[a-zA-Z1-9]{1,})+\.[a-zA-Z]{2,8}$)/){
print "is $1 \n";
}

說明：[a-zA-Z1-9]{1} \w*  (\-{0,1}\w{1})*   (\.{0,1}\w{1})*   [a-zA-Z1-9]{1,} @ ( [a-zA-Z1-9]{1,} \-*  \.*  [a-zA-Z1-9]{1,} )+\.      [a-zA-Z]{2,8}
.net正則裡不能用於perl：http://www.cnblogs.com/LCX/archive/2008/07/16/1244481.html