#!/usr/bin/perl -w

use strict;

open (ARXIU, "<$ARGV[0]") || die();

my ($evalue,$nombre);
my $ev = 0;
my @v;
my %resultados;

while (<ARXIU>) {
   
    if ( m/>/) {
	
        $ev = 0;
	
        /(\d+)/;

	$nombre = $1;

        }
    
    if (/Expect/) {

        m/(\S+)\Z/;
	
	$evalue = $1;
	
	if ( $evalue < 0.001) {

	    $ev = 1;

	} 

	else { 

	    print "$nombre con e value: $evalue\t N/S\n";

	}

    }

    if (/Identities/) {

	m/(\d+)\/(\d+).*?(\d+)/;
	
	$v[0] = $1;
	
	$v[1] = $2;
	
	$v[2] = $3;
	
	      if ($v[2] > 95 && $v[1] > 80) {
	    
		  $resultados{$nombre} = "Secuencia $nombre con evalue: $evalue\t     Homolog(%): $v[2]\t Seq lon: $v[0] / $v[1]\n" if $ev == 1;	 
	      }
	 
         }
  
    }

my @keys = (keys(%resultados));

foreach my $key (@keys)

{   
   
    print STDOUT "$resultados{$key}\n";

}

