my $string = 'eichenbaumschule';
my @query = qw(baum ums eic chu le);
@query = map { qr/($_)/i } @query;

$string =~ s/$_/\U$1/g for @query;