Select Code to Download

$inp =~ s/<%([^=].*?)%>/eval $1/ges  #this is one 
$inp =~ s/<%=(.*?)%>/eval $1/ges  #this is the second

<%
my $test='';
...
}
$test;
%>

<% $ctxt{'common_params'}; %>