This is to test. this is to test

This is to test. This is to test

This is to test. this is to test ##

##


This is to test. this is to test
This is to test. This is to test
This is to test. This is to test
This is to test.
this is to test

##

##

$infile = $ARGV[0];

open(IN, '<', "temp.in") || die "\nCan't open temp.in \n";
open(OUT, '>' "temp.out");
$/="";
while()
{
    if($_=~s/(.*)<p>(.*)\<\/p\>(.*)//ms)
    {
        $pre =  $1;
        $par =  $2;
        $pos =  $3;

        $par=~s#\n# #ig;
        print OUT "$pre<p>$par\<\/p\>$pos";
    }
}
close(IN);
close(OUT);