This doesn't handle any error conditions, like if the query contains non-matches, but it may give you a starting point.

#! perl -slw
use strict;

sub display{
    my $string = shift;
    
    return $string . $/, 
        map{ ' ' x index( $string, $_ ) . "$_\n" } @_;
}

my $string ="EICHENBAUMSCHULE";
my @query = qw( EIC BAUM UMS CHU LE );

print display( $string, @query );
__END__
P:\test>366569
EICHENBAUMSCHULE
EIC
      BAUM
        UMS
           CHU
              LE
[download]