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