$Line =~s/\(/\'/g;
   $Line =~s/\)/\'/g;

      if($Line =~/([^\s]+)\s+(DC|DS|EQU)\s+(A|X|C|H|F|D|0X|0D|0C)+(L)*([^\'\(\s]+)*(\'(.+)\')*\s*/i)
    {
      $Print_Line = " ";
      $Print_Line = $1.",".$3.",".$5.",".$7.",".$description."\n"; 
      push(@Var_File_Array,$Print_Line);
    }
   else
   {
   
    if($Temp!~/^\s*\*/ and $Temp!~/^\s+$/)   #lines other than comments and line spaces
     {
      push(@Tgt_File_Array,$Temp);
      if($Temp=~/\s+(EQU)\s+(\*)/i)       #remove EQU * from the statements
      {
       $Temp = $`;
      $Temp = $Temp."\n";
      pop @Tgt_File_Array;            
      push(@Tgt_File_Array,$Temp);     
      if(length($Temp)>1)
         { 
            @split_words = split(' ',$Temp);        #to remove line comments
            #pop @Tgt_File_Array;
            push(@Tgt_File_Array,@split_words[0],' ',@split_words[1]);
          }
      }
     }