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";
        }
}