Select Code to Download

1st line
2nd line, next line is just a newline
...
4th line, next line spaces and newline
   
6th and last line

use strict;
use warnings;
...

close $inFH
   or die qq{close: $inFile: $!\n};

-->1st line<--
-->2nd line, next line is just a newline<--
-->4th line, next line spaces and newline<--
-->   <--
-->6th and last line<--

...
while (<$inFH>)
...
    print qq{-->$_<--\n};
}
...

-->1st line<--
-->2nd line, next line is just a newline<--
-->4th line, next line spaces and newline<--
-->6th and last line<--