$ perl -E 'my $x = "Ken"; say "<p><%\$x%></p>" =~ s/<%(.*)%>/$1/er'
<p>$x</p>

##</code><code>##

$ perl -E 'my $x = "Ken"; say "<p><%\$x%></p>" =~ s/<%(.*)%>/eval $1/er'
<p>Ken</p>