[PERL] faire une condition plus compacte

Version imprimable