$re = join '|', @list;