C:\>perl
$string = "Perl-Community";
print $string eq "Perl-Community" ? "Hallo\n" : "Tschuess\n";
^Z
Hallo

C:\>