local $/ = '';
print OUT ("<$_>")
   while <IN>;

##</code><code>##

$out = join '',
       map { "<$_>" } 
       map { /\G((?:(?!\n\n).)*\n+|.+\z)/sg }
       $in;