#!/usr/bin/perl
while (<>) {
    print unless /^$/;
}
