#!/usr/bin/perl while () { chomp($_); if ($_){ print "$_\n"; } }