#!/usr/bin/perl
while (<>) {
  s/\r//g;
  s/^[ \t]*$//;
  print unless /^$/;
}