Select Code to Download

while (<DATA>){
s/\*/* /g;
...

*******************
********************

if($dlog2[$co] eq '*')
             { 
               print $fh "  ,"; 
             }