#!/usr/bin/perl -w
use strict;

while (<DATA>) 
{
   if($_ =~ /(<.+?>)(<.+?>)(.*)/)
   {
      print "$1\n\n";  #prints <TITLE>
      print "$2\n\n";  #prints <![CDATA[<p>
   }
}