$ perl -Mstrict -Mwarnings -le '
> my @arr = qw{abc d.ef gh?i};
> my $patt;
> {
>     local $" = q{|};
>     $patt = qq{xyz(@{ [ map quotemeta, @arr ] })123};
> }
> print $patt;'
xyz(abc|d\.ef|gh\?i)123
$