$str =~ s/<%(.*?)%>/$1/s;