my ($re) = map qr/$_/i, join '|', map quotemeta, @words;