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