while($line[0]) {	
	#Comment	 
	 if ($line[0] =~ m/\s*\@COMMENT\s*=\s*.*/i ) {
	 do {	 
			 chomp $line[0];
			 $line[0] =~ s/^\s+//; 
			 $line[0] =~ s/\s+$//;	
			 
			 $co = $line[0];
			 print "$co";

			 }
	  until ($line[0] =~ m/\s*\@TYPE\s*=\s*.*;/i); 
	  } 
	
	shift(@line);	
}