Select Code to Download

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

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