# If we are reading in regexs.
chomp( my @arry = <> );
my $pattern = join('|', @arry);
my $regex = qr/$pattern/;