- if ( $cgi->param($field. "_new") =~
- /\b(\w[\w\-\.\+]*\@(([\w\.\-]+\.)+\w+))\b/
- || $cgi->param($field. "_new") =~ /^\s*$/
+ if ( $cgi->param($field. "_new") =~
+ /^\s*(\w[\w\s\.\'\-]{0,99}<?\s{0,9}(\w[\w\-\.\+]{0,99}\@(([\w\.\-]{1,99}\.){1,99}\w{1,99}))\s{0,9}>?)\s*$/
+ || $cgi->param($field. "_new") =~ /^\s*()$/