"        VERSION:     0.11 12-Jul-2002  HWe"

##</code><code>##

......
my $vers_1 = "VERSION         : "; 
my $vers1 = "VERSION";  
my vers3="#Version";
$vers5="*Version";
. ..  


if($rivi =~ /^$vers_1/ || $rivi =~ /^$vers1/ || 
$rivi =~ /^$vers3/  
......      
          
          {         
           
  $rivi=~ tr/:/ /d; # To remove ":" marks
  $rivi=~ tr/;//d; # To remove ";" marks
  $teksti = $teksti.$rivi;
   open (T,">>desc.txt");	    
 print T $teksti;	 
 close T;
$teksti="";	   
	       }
                                	   
........      


##</code><code>##

....
$m0="";
$rivi=~ s/\d+-\w+-\d+/$m0/i; # for /Name type of date
$rivi=~ s/$cv\w+/$m0/; # NEW trial for /Name type of date
$rivi=~ s/\s+\w+\s+\w+/$m0/;
$rivi=~ s/\s+\w+\s+\w+/$m0/;
.....