#!/usr/bin/perl
use strict;
use warnings;
#786068 


while (<DATA>) {
	m/^\n/ and next;
	m/^\n/ and next;
	print;
}

__DATA__
line 1
line2

line4, preceeded by blank line
ln 5
ln6


ln8 preceeded by 2 blank lines
ln9