Je travail sur un logiciel écrit en Perl par des gens qui visiblement ne maîtrisaient complètement leur art... J'en veux pour preuve un petit extrait dudit logiciel : 
if($i !~ /1|2|3|4|5|6|7|8|9/) {
  $result = 0;
} else {
  $result = $n / $i;
}

Bravo, le développeur à penser à gérer le cas de la division par zéro... Ce qui me gêne le plus, c'est la façon dont il détecte cette division par 0... Avec une expression régulière qui teste si il n'y a pas de chiffre autre que 0 dans ce nombre !

Les moins tordus d'entre nous aurait peut être préféré écrire "$i != 0", mais s'eu été beaucoup trop simple ;-)

Moi, j'aurai même été tenté d'écrire juste : 
$result = $i && $n / $i;