Perl samozrejme podporuje podmineny prikaz if/then/else. Ma tento tvar:
if ($a) { print "Retezec neni prazdny\n"; } else { print "Retezec je prazdny\n"; }Pripomenme, ze prazdny retezec je vyhodnocen jako false. Vysledek Retezec je prazdny dotaneme i v pripade, ze v promenne $a je retezec 0.
V prikazu if je mozne uvest alternativni prikazy if:
if (!$a) # ! je operator not { print "Retezec je prazdny\n"; } elsif (length($a) == 1) # Pokud predchozi podminka neplati, zkus tuto { print "Retezec obsahuje jeden znak\n"; } elsif (length($a) == 2) # Pokud predchozi podminka neplati, zkus tuto { print "Retezec obsahuje dva znaky\n"; } else # Neplati zadna z predchozich podminek { print "Retezec obsahuje mnoho znaku\n"; }Vsimnete si, ze v klicovem slove prikazu elsif chybi e.