正则表达式匹配邮箱的问题？

[QCB181]

var filter=/^\s*([A-Za-z0-9_-]+(\.\w+)*@(\w+\.)+\w{2,3})\s*$/;

这个是区配邮箱的正则表达式
现在我要改写区配[e-mail]，就是在@后面的com-cn要包含字符-怎么改？

[meizz]

/^\s*([A-Za-z0-9_-]+(\.\w+)*@([\w-]+\.)+\w{2,3})\s*$/;
^ 表示字符串的开始
\s 匹配空格
\s* 匹配一连串的空格
[A-Za-z0-9_-]+ 0到9 字母a到z.减号.下划线
\w = a-zA-Z0-9_
{2, 3} 有两个或者3个字符
$ 字符串的结尾

这个正则还可以优化一下:
/^\s*([\w-]+(\.\w+)*@([\w-]+\.)+\w{2,3})\s*$/;

[meizz]

/^\s*([A-Za-z0-9_-]+(\.\w+)*@([\w-]+\.)+\w{2,3})\s*$/;

[dullren]

现在的邮箱都不允许出现用下划线作为用户名的结尾（如：[e-mail]）怎么样通过正则把这种邮箱区别出来？