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