use strict; 
use warnings;

open INPUTFILE, "<", "filter.gcode" or die $!;
open OUTPUTFILE, ">", "composition.gcode" or die $!;

my @data = <INPUTFILE>;

for (my $i=0; $i <= $#data -1; $i++)
{
   my @current = split(" ", $data[$i]);
   my @next = split(" ", $data[$i+1]);
   
   if ($current[2] eq $next[2]) {
    $data[$i] = undef;
   }  



  print OUTPUTFILE $data; 
}

close INPUTFILE;
close OUTPUTFILE;

print "done";