#!/usr/bin/perl
open(FILEHANDLE, "file") or die ("Cannot open file");
open(READSCRIPT, "script1") or die ("Cannot open script file");

open(SCRIPTFILE, '>', "script") or die ("Cannot open script file");

$old=0;
$new=0;

$scline = readline(READSCRIPT);


do {
    @t1 = split(/ /, $line);
    $new = @t1[0];

    if($new == $old) {       
#        print "$new\r\n";
        $scline=$scline." | grep \"^$new \" -v";
    }

    $old=$new;
} while ($line=readline(FILEHANDLE) );


print SCRIPTFILE $scline;

close(READSCRIPT);
close(SCRIPTFILE);
close(FILEHANDLE);