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