#!/usr/bin/perl -n
# `dedup' - like uniqo, but it keeps all the blankish lines

if (! exists $already{$_} || $_ =~ /^\s*$/) {
	undef $already{$_};
	print $_;
}