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