#!/usr/bin/perl
use warnings;
use strict;

chomp(my @list = <DATA>);

my $regex = do {
    local $" = '|';
    qr/@list/;
};

print $regex, $/;

my $s = 'huey';
print "match:\t$s\n" if $s =~ $regex;

__DATA__
huey
dewey
louie