Select Code to Download

s/%tag%/$value/g if defined $value;

$hash = {key1 => 'value', key2 => 'value'};
...
foreach my $key (keys %$hash) {
    s/%$key%/$hash->{$key}/eg;
}