print "String enthalten!" if $string =~ m/Baum/i;