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