Select Code to Download

my $regex = join '|', map quotemeta($_), @strings;
$regex = qr/$regex/;

/out|this|once|those or|about|bout/

# will work better as

/th(is|ose or)|((a?)b?)out|once/