<iw_perl> ... iwpt_output("<![CDATA[ .... ]]>\n"); ...</iw_perl>
...<iw_perl>iwpt_output("<![CDATA[");</iw_perl>...<iw_perl>iwpt_output("]]>");</iw_perl>...