print "Hello perl-community\n" if $name =~ /^muster/i;