Select Code to Download

my %subs = (
    '\?a\?' => 'aRep',
...
for my $match (keys %subs) {
    $string =~ s/$key/$subs{Skey}/g;
}

my @subs = (
    ['\?a\?' => 'aRep'],
...
for my $match (@subs) {
    $string =~ s/$match->[0]/$match->[1]/g;
}