while ( <> ) {
    chomp;
    print "$_\n" if length $_;
}