Select Code to Download

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

@new_query = qw(EIC, BAUMSCHULE);