my $cond = $a == 1 or $b == 2;    XXX
if ($cond) {
   ...
}