#!/usr/bin/perl
# The Missing Textutils, Ondrej Bojar, obo@cuni.cz
# http://www.cuni.cz/~obo/textutils
#
# 'remove_blanks_lines' does just what you expect and nothing more. Easier to
# write than "grep -v '^$'".
#
# $Id: remove_blank_lines,v 1.2 2005/10/10 07:33:50 bojar Exp $

use strict;

while (<>) {
  print if ! /^$/;
}