#!/usr/bin/perl

use strict;
use warnings;

my $retain = "";

while (<DATA>)
{
    chomp;

    if (m{^(<p>)(.*)(</p>)$})
    {
        my ($begin, $middle, $end) = ($1, $2, $3);
        # This line is inside a <p>...</p> match.
        # Handle differently if it's the first line.

        if (! $retain)
        {
            # Found first <p> in block, replace with <con>.
            # Print beginning and middle, but retain end, in case
            # this one line is also the end of the block.
            print "<con>"."$middle";
            $retain = $end;
        }
        else
        {
            print "$retain\n";          # Finish off previous line
            print "$begin"."$middle";   # Start new line
            $retain = $end;             # retain ending
        }
    }
    else
    {
        # This line is not a <p>...</p> match,
        # so flush preserved output, if any,
        # and copy this line to the output.
        if ($retain)
        {
            print "</con>\n";      # Finish off previous line
            $retain = "";
        }
        print "$_\n";
    }
}

if ($retain)
{
    print "</con>\n";      # Finish off previous line
}

#<p>This is para2</p>
#<p>This is para3</p>

__DATA__
<root>
<p>This is para1</p>
</root>

##</code><code>##

<p>This is para1</p>

##</code><code>##

<con>This is para1</con>

##</code><code>##

<p>This is para1</p>
<p>This is para2</p>
<p>This is para3</p>

##</code><code>##

<con>This is para1</p>
<p>This is para2</p>
<p>This is para3</con>

##</code><code>##

<root>
<p>This is para1</p>
<p>This is para2</p>
</root>

##</code><code>##

<root>
<con>This is para1</p>
<p>This is para2</con>
</root>

##</code><code>##

<root>
<p>This is para1</p>
<p>This is para2</p>
</root>
<stem>
<p>This is para3</p>
</stem>

##</code><code>##

<root>
<con>This is para1</p>
<p>This is para2</con>
</root>
<stem>
<con>This is para3</con>
</stem>