if ($string eq "Perl-Community") {print "Hallo\n"; } else { print "Tschuess\n";}