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

##</code><code>##

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;
}

##</code><code>##

use strict;
use IO::File;
my $Mer = new IO::File "Extracted.c", "r"
  or die "Can not open file!";
my %vars;
while my $mer (<$Mer>) {
...
}