Select Code to Download

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

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