use strict;
use warnings;

my $a = "aRep";
my $b = "bRep";
my $c = "cRep";

my @Search1 = ("?a?","?b?","?c?");
my @Replace = ($a,$b,$c);

my $i=0;
my $string = '?a? ?b? ?c?';
print "old string: $string1\n";
for (;$i<$#Search+1;$i++) {
	$string =~ s/"$Search[$i]"/"$Replace[$i]"/g;
}