foreach ('postby','title','teaser','content')
{
$in{$_} =~ s/([\r\n]){2,}/\n<\/p><p>\n/g;
}


##</code><code>##

.....end of first paragraph</p><p>
</p><p>
</p><p>
</p><p>
beginning of next paragraph....