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