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