#!/usr/bin/perl -w

use strict;

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

##</code><code>##

next if (/^\s*$/);