my @vnames = qw(bob carol ted alice);
my $names_string = join "|", @vnames;
# $names now => "bob|carol|ted|alice"

# stuff

if ($request =~ /$names/i) {
	# do stuff
}