#!/usr/bin/perl
use strict;
use warnings;

$\ = $/;
my $string = 'eichenbaumschule';
my @query = qw(baum ums eic chu le);

$string =~ s/$_/uc $_/ieg for @query;
@query = $string =~ /([A-Z]+)/g;
print for @query;
__OUTPUT__
EIC
BAUMSCHULE