$text =~ s#<\s*([^>]*)\s*>[\s\n]*<\s*/\s*\1\s*>##ig;

##</code><code>##

__DATA__
<i> </ I>
< B ></b>
< em>  < / eM  >