#!/usr/bin/perl -w

use strict;

while (<>) {
    next if (/^\n/);
    print;
}