HMMER3 simple parsing

parser_hmmer3_domtbl.pl

#Here is code for parsing 
use strict;
use warnings;
my $hmmertable = shift @ARGV;
open(HMMERTABLE, $hmmertable) || die "$hmmertable: $!";
while(<HMMERTABLE>){
    chomp;
    next if /^\#/ || /^\s+$/;
    my ($domain,$domacc,$tlen,$qname,$qacc,$qlen, $fullevalue,$fullscore,$fullbias,
	$n,$ntotal,$cvalue,$ivalue,$domscore,$dombias,$hmmfrom,$hmmto,$alifrom,$alito, $envfrom,$envto) = split(/\s+/,$_,23);
    next if $fullevalue > $minE;
    print "$qname\t$domain\t$fullevalue\n";
}