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