my %subs = (
    '\?a\?' => 'aRep',
    '\?b\?' => 'bRep',
    '\?c\?' => 'cRep',
);

for my $match (keys %subs) {
    $string =~ s/$key/$subs{Skey}/g;
}