$re = join '|', map{quotemeta} @list;