my @arry = <>;
my $pattern = join('|', @arry);
my $regex = eval("qr/$pattern/");