my @list= qw(a b c a c); my $re = join '|', @list;