#! 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