#!/usr/bin/perl

use strict;

while (<DATA>) {
    my ($word) = /\>(.*)\</;
    print "<con><p>$word</p></con><code> <br/>\n";
}

__DATA__
<p>This is param1</p>
<p>This is second para</p>
<p>this is param3</p>