my $regex = join '|', map quotemeta, @words;          # list of alternative strings