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

##</code><code>##

$re=Regexp::List->new->list2re(qw(list of words));