#!/usr/bin/perl

open(IN,"<blast.out") or die "file blast.out cannot be open: $!\n";

while(<IN>){
 $string=$_;
 chomp($string);
 @a=split("\t",$string);
  if($a[2]>=50){
   print "$string\n";
  }

}

close(IN);