Select Code to Download

my @strings = qw(ABC DEF GHI JKL);
my $regex = join '|', map "\Q$_\E", @strings;
...
    print " Match\n";
  }
}

my @strings = qw(ABC DEF GHI JKL);
my $regex = lc join '|', map "\Q$_\E", @strings;
...
    print " Match\n";
  }
}

$ perl -Mre=debug -e'qr/foo|bar|baz|boo/'
Compiling REx "foo|bar|baz|boo"
...
  13: END (0)
minlen 3
Freeing REx: "foo|bar|baz|boo"