#!/usr/bin/perl
use strict;
use warnings;
while(<DATA>){
$_ =~ s/<p>/<con><p>/g;
$_ =~ s/<\/p>/<\/p><\/con>/g;
print $_;
}
__DATA__
<p>This is param1</p>
<p>This is second para</p>
<p>this is param3</p>