Select Code to Download

s/\Q$value\E/$replace/i;

my @array_1 = ("\$Id_run_query=1", "\$name_run_query=xyz", "db_query_r
+un_query=select * from meter where metetid=\$Id and metername=\$name"
+);
my $query;
...
$query =~ s/($replace_re)/$replace{$1}/ig;

print "===>$query\n";