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