コードの一部が実行された場合だけPerlは制御構造場合、条件式が真です。実装された場合、この時点でない限り、変更することができる場合の条件は、falseの場合はブロックをしたい場合
例えば：
{W * $ / I）\（$フレッド=〜/ ^（[A-Z _]ない限り
プリント"\ $フレッドの値はPerlの識別子名のように見えない\ n";
}
いずれかの条件が真であることを意味しない限り使用し、またはコードの一部を実行します。使用制御構造が反対の状態かどうかを判断するようです。別の引数は、それが独立した他の句に類似していることです。それは、代わりに次のif文の文を使用することができない限り、読んでいないときには、次のとおりです。
もし（$フレッド=〜/ ^（[A-Z _] \ワット* $ / I）{
//什么都不做
}他{
印刷「\ $フレッドの値はPerlの識別子名のようには見えません。\ N ";
}
そうすることで2ウェイシステムは同じ内部のバイトコードに変換する必要があり、作業効率のレベルとは何の関係もありません。また、書き換えの方法は、拒否する条件オペレータに反転さ!:
{！ワット* $ / I））\（（$フレッド=〜/ ^（[A-Z _]であれば
、印刷"\ $フレッドの値はPerlの識別子名のようには見えません\ n個。";
}
偶発else節がない限り
実際には、でも構文をサポートしながら、構造がない限りelse文を使用することも可能ですが、混乱を招く可能性がある場合：
＃！は/ usr / binに/ perlの-w
ない限り（$月=〜/ ^ 2月/）{
printは"今月は、少なくとも30日間あり、\ nは。";
} lese {
印刷「あなたはここで何が起こっている参照しています\ nは？」;
}
＃如果用语句場合我们可以写成这样：
（$月=〜/ ^ 2月/）{場合
印刷を"あなたはここで何が起こっているかを参照しています\ nは？";
}他{
printは「今月は、少なくとも30日を持っている\ nは。」;
}