use strict;
use warnings;

my @lines = <DATA>;

chomp @lines; # Strip line end characters
print '<p>', join ("</p>\n<p>", @lines), "</p>\n";

__DATA__
Hello,
my name is barry
I am 20
I am webmaster of lsrfm.com
its a student radio station

##</code><code>##

<p>Hello,</p>
<p>my name is barry</p>
<p>I am 20</p>
<p>I am webmaster of lsrfm.com</p>
<p>its a student radio station</p>