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