$Temp = $Line;

   #Remove evrything after column 40 fromt he code
   $Line =~ /.{40}/;                             
   $description = $';
   $Line = $&; 
   chomp($description);
   $description =~s/\s+$//g;