$ra=Regexp::Assemble->new; 
$ra->add(quotemeta($_)) for qw(list of words);
$re=$ra->re;