Select Code to Download

my @vnames = qw(bob carol ted alice);
my $names_string = join "|", @vnames;
...
if ($request =~ /$names/i) {
    # do stuff
}