ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch1/noblank2

Text File | 1992-10-18 | 83 b | 8 lines

#!/usr/bin/perl
while (<>) {
    chop;
    if ($_ ne "") {
    print $_,"\n";
    }
}