#!/usr/bin/perl
while (<>) {
    print unless $_ eq "\n";
}
