$first = 1;
while (<>) {
	if ($first == 1) { print $_;};
	$first = 0;
	if (/^$/) { $first = 1;};
}