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

__DATA__

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

##</code><code>##

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