#!/usr/bin/perl

use strict;
use warnings;

use Bio::SearchIO;
 
my $in = new Bio::SearchIO( -format => 'hmmer',  -file => $ARGV[0] ); 
while(my $result = $in->next_result) {
    print $result->query_name(), "\n",$result->query_description(),"\n";
    while (my $hit = $result->next_hit) {
	while(my $hsp = $hit->next_domain) {
	    next unless ($hit->name =~ /^ig|^lrr|^fn3|^egf|^tsp|^psi/i);
	    print $hsp->start(),"\t",$hsp->end(),"\t",$hsp->evalue(),"\n";
	}
    }
}