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

##</code><code>##

@new_query = qw(EIC, BAUMSCHULE);