($string eq "Perl-Community") &&
(print "Hallo\n") ||
(print "Tschuess\n");