Note quite. That should be

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

or

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

since you start with a list of words, not a list of patterns.