Select Code to Download

while ()
     {
...
     last unless /\S/;
     print FILE;
     }

c:\@Work\Perl>perl -wMstrict -le
"while ()
...
ghjk
>ghjk
<