Select Code to Download

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

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