open (Mer, "Extracted.c")
%vars;
for $mer(<Mer>){
  $control=0;
  while ($control!=15){
    $mer =~ s/ //; 
    $control++;
  }
  $vars{$mer} = 1;
}
print "$_" foreach(keys %vars);