#!/usr/bin/perl -w use strict; use Bio::SearchIO; my $in = new Bio::SearchIO( -format => 'blast', -file => 'bcrabl.blastp' ); while ( my $result = $in->next_result ) { while ( my $hit = $result->next_hit ) { while ( my $hsp = $hit->next_hsp ) { if ( ( $hsp->evalue < 1e-20 ) && ( $hit->name =~ /BCR_/ ) ) { print "Query=", $result->query_name, " Hit=", $hit->name, " Percent_id=", $hsp->percent_identity, "\n"; } } } }