......
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="";	   
	       }
                                	   
........