if ( $string eq "Perl-Community" ) # Lange Bedingung - Umbruch
{
   print "Hallo\n";
}
elsif { $string =~ m/\d\d/ ) { # Kurze Bedingung - kein Umbruch
   print "Wieso denn die Ziffern?";
}
elsif { $string =~ m/\-/ ) { next } # nit der Rede wert.
else { # "Kurze Else" =) - kein Umbruch
   print "Tschuess\n";
}