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

##</code><code>##

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

# will work better as

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