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