#!/usr/bin/perl -w

use strict;

my $a;

while(<>){

 my @F = split(/\s+/,$_);
 if(defined $F[4]) { $a = "" ."$F[4]" . ""; }
 if(/^[GN]/){ $_= "$F[0]  $F[1]  $F[2]  $F[3]\n"; }
 #~s/$a//g; $_=~s/$F[5]//g; $_=~s/$F[6]//g; $_=~s/$F[7]//g;  }
 if(! ($_ =~ /color_[r,g,b]/) && ! ($_ =~ /align_bp/)  ) {print $_ ; }

}

#echo $argv[$#argv]

# grep -v 'color_[r,g,b]' | grep -v 'align_bp' | perl -ane 'if(/^[GN]/){  $_=~s/"$F[4]"//g; $_=~s/$F[5]//g; $_=~s/$F[6]//g; $_=~s/$F[7]//g;  }{print $_ ; } ' 


