$string eq "Perl-Community" ? print "Hallo\n" : print "Tschuess\n";