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