Select Code to Download

join q{|}, XXX \@{YYY}

my $quotemeta = 'XXX';
my $var_name = 'YYY';
my $perl5patt = qq{(??{join q{|}, $quotemeta \@{$var_name}})};
print $perl5patt, "\n";

(??{join q{|}, XXX @{YYY}})