#!/usr/bin/perl
use strict;
use warnings;
print '<con>';
my $out;
while(<DATA>){
  $out .= $_;
}
chomp($out);
print "$out</con>\n";
__DATA__
<p>This is param1</p>
<p>This is second para</p>
<p>this is param3</p>