my $namecnt = qr/^(David|Tom|Sam|Will|Dave|William|Thomas)$/;