my $perl5patt = "(??{join q{|}, $quotemeta \@{$var_name}})";