diff --git a/scripts/buildtable.pl b/scripts/buildtable.pl
index 202e457e..fac3656d 100755
--- a/scripts/buildtable.pl
+++ b/scripts/buildtable.pl
@@ -206,7 +206,7 @@ while (++$bipnum <= $topbip) {
 			# Enforce date format 20XX-MM-DD, where XX is 00-99, MM is 01-12 and DD is 01-31
 			die "Invalid date format in $fn" unless $val =~ /^20\d{2}\-(?:0[1-9]|1[0-2])\-(?:0[1-9]|[12]\d|30|31)$/;
 		} elsif (exists $EmailField{$field}) {
-			$val =~ m/^(\S[^<@>]*\S) \<[^@>]*\@[\w.]+\.\w+\>$/ or die "Malformed $field line in $fn";
+			$val =~ m/^(\S[^<@>]*\S) \<[^@>]*\@[\w.-]+\.\w+\>$/ or die "Malformed $field line in $fn";
 		} elsif (exists $VersionField{$field}) {
 			$val =~ m/^(\d+\.\d+\.\d+)$/ or die "Malformed $field line in $fn";
 			$version = $val;