while (<>) {
     if ($_ =~ m/\S\n{2}\S/){
          s/(\S)\n{2}(\S)/$1\n$2/gs;
          print;
     }
     elsif ($_ =~ m/\n{3,}/){
          s/\n{3,}/\n\n/gs;
          print;
     }
}