foreach my field (qw(postby title teaser content)){
  $in{$field} =~ s[ (\r? \n){2,} ]          # two or more CR
                  [ \n </p> \n <p> \n]gx;   # Close one para, open another
}