while (<>) {
  print unless ($_ eq "\n") && ($last ne "\n") && ($secondlast ne "\n");
  $secondlast = $last;
  $last = $_;
}