#! perl -slw
use strict;

my( $ID, $query, $off );
while( <DATA> ) {
    if( m[^>]  ) {
        ( $ID ) = (split '\|', $_)[ 1 ];
        next;
    }
    if( m[^Query] ) {
        ( $query ) = m[^Query\s+(\d+)];
        my $top = substr $_, 15;
        my $pipes = substr <DATA>, 15;
        my $bot = substr <DATA>, 15;
        my $p = 0;
        while( $p = 1+index $pipes, ' ', $p ) {
            printf "%20s :(%d) %1s/%1s\n",
             $ID, $query+$p,
             substr( $top, $p-1, 1 ),
             substr( $bot, $p-1, 1 );
        }
    }
}

__DATA__