while (<$fh>) {
        print if /^(.+?)\|(.+?)\| (.+?)\s+(\d+)\s+(\d+e[+-]\d+)$/;
    }

##</code><code>##

    $hash{$2} = { col1 => $1, desc => $3, score => $4, E => $5 }
        if /.../; # Use regex above

##</code><code>##

    my $how_many = 10;
    for (sort { $hash{$b}->{score} <=> $hash{$a}->{score} } keys %hash) {
        printf "%-4s %-55s %5s\n",
            $hash{$_}->{col1}, $hash{$_}->{desc}, $hash{$_}->{score};

        last if --$how_many == 0;
    }


##</code><code>##

emb  plasma membrane H+-ATPase [Oryza sativa Japonica...       213
gb   hypothetical protein OsI_09609 [Oryza sativa Indi...      213
ref  Os03g0100800 [Oryza sativa Japonica Group] >...           213
gb   ATPase 11, plasma membrane-type [Aegilops tauschii]       208
ref  PREDICTED: ATPase 7, plasma membrane-type is...           207
ref  H(\+)-transporting atpase plant/fungi plasma...           207
ref  PREDICTED: plasma membrane ATPase 1-like [Br...           207
ref  PREDICTED: ATPase 7, plasma membrane-type is...           207
ref  autoinhibited H+ ATPase [Populus trichocarpa...           206
ref  PREDICTED: plasma membrane ATPase 1-like iso...           205