s{(<\?--(\w+)-->)}{
    defined($swap{$2}) ? $swap{$2} : $1
}eg;

##</code><code>##

s/<\?--(\w+)-->(??{ defined($swap{$^N}) ? '(?=)' : '(?!)' })/$swap{$1}/g;