Perl script to reformat the picks #!/usr/sbin/perl while () { chop; @a = split; if( @a[3] > .05 ) { print @a[1],"\t",@a[2],"\t", @a[3],"\t"; if( @a[3] > .1 ) { print "\t"; } print @a[4],"\t",@a[5],"\n"; } }