Select Code to Download

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

<BR>
BAUMSLECHU  # the CHU and LE are not in the same order as indicated in
+ @query