#!/usr/bin/perl
use strict;
#   create alternation
my @list;
while (<DATA>) {
    chomp;
    push @list, $_;
}
my $regex = '^(' . join('|', @list) . ')$';
my $s = 'huey';
print "regex = $regex\n";
print "match:\t$1\n" if $s =~ m/$regex/;
__DATA__
huey
dewey
louie