#!/usr/bin/perl

while($_ = <DATA>){

chomp;
#print $_;

s/<.+><\/.+>//g;
s/<!\[CDATA\[<p><\/p><p>/<![CDATA[<p>/g;
print "$_\n";
}

__DATA__
<Text><p>
<Text></Text>
<Memo></Memo>
<Text></p>
<![CDATA[<p></p><p>