Select Code to Download

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

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