my $lines

    if(/^G/)
        {
                next if ($lines eq $_);
                $lines = $_;
                print $_;
        }