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