KeepConfZone.pl 328 Bytes
#!/usr/bin/perl

use strict;
use warnings;

# file: KeepConfZone.pl
# brief: Print from stdin lines with conf grater or equal to 0.6
#

while(<STDIN>)
{
    #chomp($_);
    my @sctm = split(/ /,$_);
    my $conf = $sctm[5];

    if($conf >= 0.6)
    {
        print $_;
    }
    else
    {
       print "# # # # #\n";
    }
}