use Data::SearchReplace qw(sr);

sr({ SEARCH => '<![CDATA[',    REPLACE => '' }, $hash);
sr({ SEARCH => '&lt;![CDATA[', REPLACE => '' }, $hash);
sr({ SEARCH => ']]>',          REPLACE => '' }, $hash);
sr({ SEARCH => ']]&gt;',       REPLACE => '' }, $hash);