s{(<[^>]+>)|%([^%]+)%}{
    $1 || $replace{$2} // "%$2%"
}ge;

##</code><code>##

my @matches = grep defined, $data =~ m{<[^>]+>|%([^%]+)%}g