#!/usr/bin/perl
use strict;
use warnings;

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

    $output =~ s!(< )!</p>\n\n<p>!g;
    print $output . '</p>' . "\n";
}